/[+-]/&&eval"\$/$_$_"||/\x2e/&&print chr$/for qw! ================================================= + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + . + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + . - - . + . - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - . + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + . + + + + + + + + + + + + + . + . + + + + + . - - - - - - - - - - - - . - - - . + + + + + + + + + + + + + . - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - . + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + . + + + + + + + + + + + + + + + + + + + + + . + + + + + + + + + + + + + . - - - - - - . - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - . + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + . + + + + + + + + + + + + + + + + + + + + + + + + + . + + . + + + + + + + + . - - - - - - . + + + + + + + + + + + + + . - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + - - - - - - - - ================================================= A bilingual JAPH. Valid code in Perl & brainf***! |
We have now highlighted the Perl code.
This code implements a limited Brainf***
A more verbose version would look like: $/ = 0; # next line is equivalent to: # for qw!Brainf*** code string! foreach $_ (Brainf*** code words) { # next line is equivalent to: # /[+-]/&& if (/[+-]/) { # next 2 lines are equivalent to: # eval "\$/$_$_"; $/ += 1 if /\+/; $/ -= 1 if /\-/; # next 5 lines are equivalent to: # ||/\x2e/&&print chr$/ } elsif (/\./) { print (chr($/)); } else { # ignore other chars } } |