Thread RDW #2 - Rätsel der Woche Nr. 2
(155 answers)
Opened by renee at 2004-07-16 12:08
@Crain: is meine zweite mail nicht bei dir angekommen? ich hatte noch eine berichtigte lösung geschickt.
Code: (dl
)
1 #!/usr/local/bin/perl und hier noch ne gegolfte funktion von heute morgen Code: (dl
)
sub P{sub _{@_?map{my$f=pop@_;[$f],map{[$f,@$_]}_(@_)}@_:()};[],_(@_)} ist leider nicht kürzer als der ansatz von pq :( dafür aber eine funktion und mehr obfuscated :p $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78
0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B |