As a sidenote, i'm only using 7 of the 8 available instructions, though the interpreter can also handle the eighth. Can anyone spot what it is...#!/usr/bin/perl -w use strict; my($p,@m);@_=('>+++++++++[<++++++++>-]<++.>++++++[<++++++++>-]<-----.- +-.+.>++++++++[<---------->-]<----.>+++++++++[<+++++++>-]<++.>++++[<++ ++>-]<+.+.+++++.>++++[<--->-]<.---.>++++[<+++>-]<+.[-]>++++++++[<++++> +-]<.>+++++++[<+++++++>-]<-.>+++++++[<+++>-]<.+++++++++++++.------.[-] +>++++++[<++++++>-]<----.>++++++[<+++++++>-]<--.>++++++[<++++>-]<+.++. +++++++++.>++[<--->-]<.+++++++++++++.[-]++++++++++.');*$=sub{s/./$&;\n +/g;s/\+|-/P$&$&/g;s/</\$p--/g;s/>/\$p++/g;s/\./print chr P/g;s/,/P=or +d getc/g;y/[]/{}/;s/{;/while(P){/g;s/};/}/g;s/P/\$m[\$p]/g;eval;print +$@if$@};&$ for@_;
In reply to Interpreted by iamcal
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |