BF interpreter

A friend of mine, EnragedTux, wrote a BF interpreter in Perl. He wanted to shorten it up, and I came up with this. He told me to say that he helped out. :)

#!/usr/bin/perl
open P,shift;%p=('>',sub{$p++},'<',sub{$p--},'+',sub{$p[$p]++},'-',
sub{$p[$p]--},'.',sub{print chr$p[$p]},',',sub{$p[$p]=ord getc},'['
,sub{&c} ,);sub p{ exists$p{$_[0]}&&&{$p{$_[0]}}}p getc P until eof
P; sub c{push@c,getc P until$c[@c-1]eq']';do{p$_ for@c}while$p[$p]}
[download]

"If you go on with this nuclear arms race, all you are going to do is make the rubble bounce" -- Winston Churchill

Comment on BF interpreter Download Code

Replies are listed 'Best First'.
Re: BF interpreter by ikegami (Patriarch) on Aug 23, 2006 at 21:56 UTC
Awesome! I'll give this to my GF tonight. Oh, you mean that other BF!	[reply]
Re: BF interpreter by locked_user mtve (Deacon) on Aug 25, 2006 at 10:45 UTC
See this thread
Re: BF interpreter by truedfx (Monk) on Aug 28, 2006 at 07:20 UTC
Nice. You can make it a little bit shorter by not giving `p` any arguments, and by using `ARGV`: `#!/usr/bin/perl $/=\1;%p=('>',sub{$p++},'<',sub{$p--},'+',sub{$p[$p]++},'-',sub{$p[ $p]--},'.',sub{print chr$p[$p]},',',sub{$p[$p]=ord<>},'[',sub{&c}); sub p{exists$p{$_}&&&{$p{$_}}}p while<>;sub c{push@c,<>.!1until$c[@ c-1]eq']';do{p for@c}while$p[$p]}` [download]	[reply] [d/l] [select]
Re^2: BF interpreter by gustavderdrache (Acolyte) on Aug 30, 2006 at 20:42 UTC
Wow, awesome. Wouldn't have come up with that one. "If you go on with this nuclear arms race, all you are going to do is make the rubble bounce" -- Winston Churchill	[reply]