map{chomp($_);push @x, $_;}split,<DATA>;@y = @x[16..$#x];@z = @x[0..15 +];print chr($z[($_-1)]*2+64) for @y; __DATA__ 5 10.5 9.5 10 0.5 7 7.5 4 2.5 9 8 6 4 1.5 5.5 71 1 2 3 4 16 5 6 7 4 8 9 10 16 11 9 10 12 16 13 5 14 15 9 10
In reply to First JAPH by Grygonos
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |