Functional Brainf*ck JAPH

Fully functional Brainf*ck interpreters have been done before, but I've only seen it as a golf problem - not intentional obfuscation. So here it is: my first attempt at a JAPH.

$/=$u;$_=<DATA>;y;-<[.]>+;;cd;s:.:($t=qw=while%{ ++$p %||last} %}++
++% %-- --% print(chr%) --$p=[ord($&)%13%9])=~s'%'($m[$p])';"$t;\n"
:gex;eval __DATA__
,>>++++[>++++++++<-]+++++++++++[>>+++++++++++<<-]++++++++++[>>>++++
++++++<<<-]++++++++[>>>>+++++++++<<<<-]>>>>++.<<----.--.+.<.>>---.<
------.+.+++++.>+++++++.---.<--.<.>>>++++++.<.<.>+++++++.<<.>>----.
-------.++.++++++++.------.<.<++++++++++++.<<++++++++++.
[download]

Comment on Functional Brainf*ck JAPH Download Code

Replies are listed 'Best First'.
Re: Functional Brainf*ck JAPH by ambrus (Abbot) on Jul 06, 2004 at 09:07 UTC
Evil JAPH is an obfu that contains a bf interpreter. You can probably find most bf obfus with super-search.	[reply]
Re^2: Functional Brainf*ck JAPH by etcshadow (Priest) on Jul 12, 2004 at 22:01 UTC
You beat me to my own defense. I've been incomunicado and haven't touched in on PM for over a week. `------------ :Wq Not an editor command: Wq` [download]	[reply] [d/l]
Re: Functional Brainf*ck JAPH by Anonymous Monk on Jul 09, 2004 at 21:40 UTC
Hmmm... golf you say. FORE! `$/=%h=qw;> $p++ < $p-- + $a[$p]++ - $a[$p]-- . print(chr$a[$p]) [ while($a[$p]){ ] };;$_=<DATA>;s:.:$h{$&};:g;eval __END__ >>++++[>++++++++<-]+++++++++++[>>+++++++++++<<-]++++++++++[>>>++++ ++++++<<<-]++++++++[>>>>+++++++++<<<<-]>>>>++.<<----.--.+.<.>>---.< ------.+.+++++.>+++++++.---.<--.<.>>>++++++.<.<.>+++++++.<<.>>----. -------.++.++++++++.------.<.<++++++++++++.<<++++++++++.` [download]	[reply] [d/l]