Re: Bizarre languages ( was Re: Best language for low IQ programmers? )

[mjd@plover.com (Mark Jason Dominus)]

In article <mequvt8kgg8tl7mvr39jkfptcvbb7uk23n@4ax.com>,
IsraelRT  <israelrt@optushome.com.au> wrote:
>**" The effect of reading an Unlambda program is like habing
>your brains smashed out by a Lisp sexp wrapped around an ENIAC.  You
>won't find anything like it west of Alpha Centauri.
>The Hitch-Hacker's Guide to Programming"
>
>"the following Unlambda program
>calculates and prints the Fibonacci numbers (as lines of
>asterisks)
>
>```s``s``sii`ki
>  `k.*``s``s`ks
> ``s`k`s`ks``s``s`ks``s`k`s`kr``s`k`sikk
>  `k``s`ksk
>
>"


This may entertain you.  It's an implementation of an unlambda-like
language, as a Perl regex.  (I left out the c operator, big surprise.)

The string in $_ is the program.

require 5.00553;
use re 'eval';
$|=1;
$z = qr{(?{local$d=1})
        (?:`(?{$d++})
          |.(?{$d--})
        )+?
        (?(?{$d})(?!))
       }x;
$_="``As`SB``Ad``S``BS`BBI``Ae``B`SI`Ed``A?``C``CIi`pI``E?Z``BZZZZZ`KI
```CX`KIZZQZZZQZZZZZQZZZZQZ``BZZ```CX`KX`KXQ``Ee``EeZZZZZQZ```CX`KIZZQ
```CX`KIZZQZZZZQ```CXZ`KIZZQ``Ee```CX`KIZZQ``EdZZZQZ``BZZ```CX`KX`KXQ`
`BZ```CX`KIZZ`KXZQ``Ee```CX`KIZZQ``EdZZZQ``BZZZZ`KXQZ``BZZ```CX`KX`KXQ
``B```CXZ`KIZZ`KXQ``Ee``EeZZZZZQ``B``EeZZZ`KXQ``Ee``EdZZZQ``Ee```CX`KI
ZZQ``EdZZZQ``Ed``Ee```CX`KX`KI";
s/\n//g;s/Q/`KI``E?/g;s/X/IZZZ/g;s/Z/``Es/g;
1 while
  s{`I($z)          (?{$q=0})|``K($z)($z)                    (?{$q=1})
   |```S($z)($z)($z)(?{$q=2})|```B($z)($z)($z)               (?{$q=3})
   |```C($z)($z)($z)(?{$q=4})|``A($z)($z)                    (?{$q=5})
   |`i($z)     (?{$R++,$q=6})|`p($z)(?{print(chr 120-$R), $R=0, $q=7})
   |`E($z)          (?{$q=8})|`V($z)                         (?{$q=9})
   }
   {local $^W; 
   $q<5 ?($1,$2,"``$4$6`$5$6","`$7`$8$9","``$10$12$11")[$q]
   :$q==5?($bind{$13}=$14,"")
   :($15,"",$bind{$17},"")[$q-6]
    }ex;


__END__

Hope this helps.

Have a Turner combinatorial calulus day.

-- 
@P=split//,".URRUU\c8R";@d=split//,"\nrekcah xinU / lreP rehtona tsuJ";sub p{
@p{"r$p","u$p"}=(P,P);pipe"r$p","u$p";++$p;($q*=2)+=$f=!fork;map{$P=$P[$f^ord
($p{$_})&6];$p{$_}=/ ^$P/ix?$P:close$_}keys%p}p;p;p;p;p;map{$p{$_}=~/^[P.]/&&
close$_}%p;wait until$?;map{/^r/&&<$_>}%p;$_=$d[$q];sleep rand(2)if/\S/;print