#include <EXTERN.h> #include <perl.h> #include <XSUB.h> #include <math.h> #define qq __FILE__ #define cc (((3))) #define ZZ(YY,WW) XS(YY) {AV*gg\ = perl_get_av( "SS",cc-cc); SV* Ss,*uu; char \ ii=*(SvPV( perl_get_sv("_", 0*cc),na)\ ) %(36+cc); ( av_len(gg) <1)?( perl_call_pv\ ("__",0/cc)):(Ss =av_pop(gg), uu= av_pop(gg),(((i\ i==pow(2,cc))||( ii==(40-cc)))&&( SvNV(Ss)==0))?(\ av_push(gg,uu), av_push (gg,Ss), perl_call_pv("\ _",3-cc)):( av_push (gg, newSVnv(WW\ ) ) ,1)) ; } ZZ(uu,SvNV(uu)- (SvNV(Ss)*(SvIV( uu)/SvIV(Ss)))) ZZ(ii,SvNV (uu)-SvNV(Ss))ZZ (ff,SvNV(Ss )+SvNV(uu))ZZ(gg ,pow(SvNV(uu), SvNV(Ss)))ZZ(Ss, SvNV(uu)/SvNV(Ss ))ZZ(ss,SvNV(Ss) * SvNV(uu)) void bb( ){ newXSproto("UU", ff,qq, ""); newXSproto( "W""W",ii,qq,"") ;newXSproto("TT" ,ss,qq,"") ; newXSproto("Y" "Y",Ss,qq, ""); newXSproto( "vv",uu, qq,""); newXSproto("aa", gg,qq,""); }int main(int _,char* *__, char**ee){ PerlInterpreter* aa=perl_alloc(); char*dd[]= { "", "-e", "0"} ; perl_construct (aa); perl_\ parse(aa, bb, cc,dd ,ee) ;perl_eval_sv (newSVpv("_:$_= <> ; defined or exit; @ARGV" "=split; __:$_= shift;defined or goto _; chomp " ";(m*^\\x70oO" "\\x74$*i)?(pri" "nt \"$_ w\\x" "61s h\\145r\\x" "65!\\n\"):((m*" "^\\s\\*(-?\\d+" "(\\.\\d+)?)\\s" "\\*$*)?(push@SS ,$1):(&{chr(((o" "rd)%39)+3**4)x2 } )); goto __; sub ff { @SS= (" ")} sub __{print \"stack empty\\" "n\"} sub ss{$#" "SS<0 and goto & __; print $SS[$" "#SS].\"\\n\"} " "sub SS{ $#SS<0 and goto &__ ; print pop @SS}" "sub _ { print \"divide by zer" "o\\n\"}sub ii{" "map{ print\"$_" "\\n\" } reverse @SS} sub AUTOLO" "AD { print\"un" "implemented\\n" "\"} sub gg{ $#" "SS<0 and goto &__;push@SS,$SS[ $#SS]} sub uu{ " "$#SS<1 and goto &__;$SS[ $#SS]+= $SS[$#SS-1];$SS" "[$#SS-1]=$SS[$" "#SS]-$SS[$#SS-" "1]; $SS[$#SS]-" "=$SS[$#SS-1]} ",0),0 ); exit(cc); }

引用元：https://www.ioccc.org/2000/dlowe.c

審査員・作者による説明：https://github.com/ioccc-src/winner/blob/main/2000/dlowe.hint

動作

逆ポーランド記法の電卓。

$ gcc -DPERL_POLLUTE `perl -MExtUtils::Embed -e ccopts` dlowe.c -o dlowe `perl -MExtUtils::Embed -e ldopts`

$ echo "3 4 + 1 2 - * p" | ./dlowe
-7

解説

Perlインタプリタの組み込みAPIを使って、コード中に埋め込まれたPerlプログラムを実行する構成になっている。 あくまでこのプログラム自体はC言語で書かれているので、IOCCCのルールに従っていると主張している。 難読化については、「PerlのAPIはマクロばっかりだから、安易にプリプロセスしたら悲惨なことになるよ。でも大丈夫、PerlのAPIはとてもわかりやすい名前だからね。SvNVとかSvIVとかnewSVpvとか」とのこと。 ポータビリティは、「PerlはX Window Systemよりポータブルだ」と主張している。

埋め込まれたPerlプログラム自体は特段難読化されていないが、Perlなので普通に難しい。 「IOCCCのルールの裏をつくことにフォーカスして、Perl部分はきれいなコードにするつもりだったが、どうしてもできなかった」と作者は言っている。 入力の演算子はchr(((ord)%39)+3**4)x2によって関数名に変換し、それを呼ぶようになっている。 たとえば+はUUという関数名になる。

コード形状は川の字。3つの対象的なコードスタックを表現しているとのこと。

“easter egg”が含まれているということだけれど、たぶん次の挙動のことだと思う。

$ echo poot | ./dlowe
poot was here!

作者は[[1998/dlowe]]や[[1998/dloweneil]]と同じであることに注意。

現代ではPerlのAPIが少しだけ変わっていた（naがPL_naに変わった）のでそこだけ修正した。

パッチ

--- dlowe.c +++ dlowe.c @@ -6,7 +6,7 @@ #define cc (((3))) #define ZZ(YY,WW) XS(YY) {AV*gg\ = perl_get_av( "SS",cc-cc); SV* Ss,*uu; char \ -ii=*(SvPV( perl_get_sv("_", 0*cc),na)\ +ii=*(SvPV( perl_get_sv("_", 0*cc),PL_na)\ ) %(36+cc); ( av_len(gg) <1)?( perl_call_pv\ ("__",0/cc)):(Ss =av_pop(gg), uu= av_pop(gg),(((i\ i==pow(2,cc))||( ii==(40-cc)))&&( SvNV(Ss)==0))?(\

パッチをダウンロード