128 ToastyX PHP Failed 130 ToastyX PHP Passed 127 ToastyX PHP Failed 129 ToastyX PHP Failed 129 ToastyX PHP Passed #### ## for my $i (48..58) { printf " %08b (ord %3d %c)\n", $i, $i, $i; } #### 00110000 (ord 48, "0" character) 00110001 (ord 49, "1" character) 00110010 (ord 50, "2" character) 00110011 (ord 51, "3" character) 00110100 (ord 52, "4" character) 00110101 (ord 53, "5" character) 00110110 (ord 54, "6" character) 00110111 (ord 55, "7" character) 00111000 (ord 56, "8" character) 00111001 (ord 57, "9" character) 00111010 (ord 58, ":" character) #### 00111010 (ord 58, ":" character) & 10100000 (ord 160) = 00100000 (ord 32, space character) #### 00111001 (ord 57, "9" character) & 11111111 (ord 255) = 00111001 (ord 57, "9" character) #### $r&XXXXX #### "$r[3]$r[4]" substr($r,3) ($r&XXXXX) #### ## ## $c[$_*=.52,5.5-4.7*cos][8+7.4*sin]=($_^$`%12?o:x)&($_^$'/5?o:'}')for<>!~/:/..11;print"@$_ "for@c #### $x = "A"; $x[5] = "Z"; echo "x='$x'\n"; #### x='A Z' #### x = "A" x[5] = "Z" print "x='#{x}'\n" #### `[]=': index 5 out of string (IndexError) #### $x = "A"; substr($x,5,1) = "Z"; print "x='$x'\n"; #### substr outside of string #### vec($\,vec('GGGGGGGGGGGGGGGGGGGGGG',$_,8),8)=($_^$`%12?$_<12?111:10:120)&($_^$'/5?111:125)for<>!~/:/..21;$\=~y/\0/ /;print #### use strict; use warnings; my @twentytwoord = ( 8, 22, 40, 59, 77, 92, 102, 84, 63, 43, 26, 14, 9, 23, 24, 41, 42, 60, 61, 78, 79, 93 ); my @twentytwo = map { 255 - $_ } @twentytwoord; my @twentyfourord = ( 0, @twentytwoord, 103 ); my @twentyfour = map { 255 - $_ } @twentyfourord; print "twentytwoord: @twentytwoord\n"; print "twentytwo: @twentytwo\n"; print "twentyfourord: @twentyfourord\n"; print "twentyfour: @twentyfour\n"; my $lookup24str = join "", map { chr } @twentyfour; my $lookup22str = join "", map { chr } @twentytwo; my $prog129 = '', $progfile or die "error: open '$progfile': $!"; binmode $fh; print {$fh} $prog; close $fh; warn "created $progfile, ", length($prog), " bytes\n"; }