Anonymous user
Execute Brain****: Difference between revisions
→{{header|Perl}}
Line 4,734:
[[/Perl|Implementation in Perl]].
===Actually compile the Brain****===
<lang perl>#!/usr/bin/perl
my %code = split ' ', <<'END';
> $ptr++
< $ptr--
+ $memory[$ptr]++
- $memory[$ptr]--
, $memory[$ptr]=ord(getc)
. print(chr($memory[$ptr]))
[ while($memory[$ptr]){
] }
END
my ($ptr, @memory) = 0;
eval join ';', map @code{ /./g }, <>;</lang>
=={{header|Phix}}==
| |||