1999/10/15 BooK \$A = eval q.@{[.."0,"x\$A.qq|0]}| 1999/11/04 BooK \$A =~ s/\$A/\$A+1/e 1999/11/04 Moun inc( \$a, \$a, \$tchoum ); sub inc { map { s/^(.*)\$/\$1+1/e; } @_ } 2000/01/31 BooK for(map{2**\$_}(0..31)){if((\$A&\$_)==0){\$A|=\$_;last}else{\$A&=~\$_}} 2000/02/18 BooK \$A+=@{[\$A]} 2000/02/21 Moun \$A = ((@S=("(\$A==\$S[1])?(\$S[1]+1):((\$S[1]++,eval(\$S[0]))[1])",0)),eval(\$S[0]))[1] 2000/03/13 BooK \$A =~ s/(-)?(\d+(?:\.\d*)?)/\$1.(\$2+(\$1?-1:1))/e 2000/03/13 BooK \$A =~ s/(-)?(\d+(?:\.\d*)?)/"\$1 1+"x\$2.'1'/egoisme 2000/03/17 BooK \$A+=0<<1|2<<3>>4 2000/03/24 BooK \$A=~s/(-)?(\d+(?:\.\d*)?)/# les filles c'est des cloches (Souchon) "\$1 1+"x\$2.'1'/sexisme 2000/03/30 BooK \$A=@{[(\$A)x\$A,\$A]} 2000/03/30 BooK \$A=~s/(\$A)/\$1+1/e 2000/03/31 BooK A:goto(A)if\$A!=\$A+++1 2000/04/05 BooK \$A=\$A{\$A}?&{\$A{\$A}}(\$A):&{\$A{\$A}=sub{1+shift}}(\$A) 2000/04/05 grinder \$a = do{ while(1&\$a) {\$a>>=1}continue {++\$b}(\$a|1)<<\$b }; 2000/04/06 grinder \$a = do{\$_=!\$_;\$_<<=1 while(\$a&\$_<<1<=\$a);(\$a&\$_|1)+(\$a&\$_&&\$a&~\$_|1||\$a&~\$_)}; 2000/04/11 stefp \${ '`' | '!' } -= \$#\$ + \${""} - \${''} 2000/04/11 stefp \$ {'`'| '!'}-=-- +\$#\$+ \$ { ""}- --\$ { ''} 2000/04/12 BooK *A=\(\$A+1) 2000/04/12 grinder use Cobol; PROCEDURE DIVISION ADD 1 TO A GIVING B MOVE B TO A 2000/04/12 grinder \$A = do{\$_=!\$_;\$_<<=1 while(\${'@'|'!'&~'"'}>=\${'@'|'!'&~'"'}&\$_<<1);(\${'@'|'!'&~'"'}&\$_|1)+(\${'@' |'!'&~'"' }&\$_&&\${'@'|'!'&~'"'}&~\$_|1||\${'@'|'!'&~'"'}&~\$_)}; 2000/04/13 stefp use AI; incrémente la variable scalaire a de 1 unité # \$a++ 2000/04/13 stefp \${"A\0comme quoi perl n'ignore pas partout les \0"}++