mirror/ioccc
1
0 Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge pull request #134 from jdalbec132/master

Browse Source 
Update dlowe.c
This commit is contained in:
Landon Curt Noll authored and GitHub committed 2025-04-16 13:28:44 -07:00
2 parents 2132978fd0 e470992e1d
commit d644602053
1 file changed
+3 -1
Download Patch File Download Diff File Expand all files Collapse all files
2000/dlowe/dlowe.c
+3 -1
View File
@@ -22,6 +22,7 @@ bb( ){ newXSproto("UU", ff,qq,
,ss,qq,"") ; newXSproto("Y" "Y",Ss,qq, ,ss,qq,"") ; newXSproto("Y" "Y",Ss,qq,
""); newXSproto( "vv",uu, qq,""); newXSproto("aa", ""); newXSproto( "vv",uu, qq,""); newXSproto("aa",
gg,qq,""); }int main(int _,char* *__, char**ee){ gg,qq,""); }int main(int _,char* *__, char**ee){
PERL_SYS_INIT3( &_,&__,&ee);
PerlInterpreter* aa=perl_alloc(); char*dd[]= { "", PerlInterpreter* aa=perl_alloc(); char*dd[]= { "",
"-e", "0"} ; perl_construct (aa); perl_\ "-e", "0"} ; perl_construct (aa); perl_\
parse(aa, bb, cc,dd ,ee) ;perl_eval_sv parse(aa, bb, cc,dd ,ee) ;perl_eval_sv
@@ -40,4 +41,5 @@ parse(aa, bb, cc,dd ,ee) ;perl_eval_sv
"SS<0 and goto &__;push@SS,$SS[ $#SS]} sub uu{ " "SS<0 and goto &__;push@SS,$SS[ $#SS]} sub uu{ "
"$#SS<1 and goto &__;$SS[ $#SS]+= $SS[$#SS-1];$SS" "$#SS<1 and goto &__;$SS[ $#SS]+= $SS[$#SS-1];$SS"
"[$#SS-1]=$SS[$" "#SS]-$SS[$#SS-" "1]; $SS[$#SS]-" "[$#SS-1]=$SS[$" "#SS]-$SS[$#SS-" "1]; $SS[$#SS]-"
"=$SS[$#SS-1]} ",0),0 ); exit(cc); } "=$SS[$#SS-1]} BEGIN{$|++}",0),0 ); exit(cc); }