Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -s # |bf; bf $file; bf -e=,
$|++;undef$/;$_=$e||<>;tr/-+,.[]<>//cd;for$
...
,$p[$p]=ord(getc) .print(chr($p[$p])) <$p--
>$p++%){s/\Q${\substr$a,0,1}/${\substr$a,1}
;/g}eval; # by Juerd <juerd@juerd.nl>, 2001
  2. or download this
    2;0 juerd@ouranos:~$ ./bf -e='++++++++[>++++++++<-]+++++[>>+++++<<-]>>
++
[<+.>-]++++++++++.'
ABCDEFGHIJKLMNOPQRSTUVWXYZ