Help for this page
s,$/,,g, eval
$|--; print join $", map { ... } @_[$|--..$^F+$|] } -> ()
{ undef @bins; map @{[ push @{ $bins[ ord( (/.{$.}(.)/)[$|] ) ] }, $_ ]}, @_; @_ = map @$_, @bins; $.-- && redo }
$bins[ ord('l') ] = [ 'uhinbyl' ]; $bins[ ord('v') ] = [ 'zobxiiv' ]; $bins[ 0 ] = [ 'xqsauh', 'zozmib', 'xtbemz', 'ujwq', 'xzaf', 'ufde' ];
map { y/ //d; # delete spaces. None of the words have any, +so no-op. ... # $. ended up with the value -1. Here it beco +mes 3 $_ }
map { $_{$_} = $a++; # %_ hash becomes ... $.++; # 4 more increments leaves $. set to 7 $_ }
map { $_[$_{$_}] = # $_{$_} is the hash value that was ... ... } -> ($_{$_}, $_) # hash {$_}, $_ = (value, key) pair }
$_[0] = sub { ... } -> (0, 'ufde') $_[1] = sub { ... } -> (1, 'uhinbyl') $_[2] = sub { ... } -> (2, 'ujwq') $_[3] = sub { ... } -> (3, 'xqsauh')
join '', map { ... $_ += 26 while $_ < 93; chr }
www.com | www.net | www.org
No recent polls found