in reply to Wow

Unrecognized character in execution. \xBE,\xBA,\x86,\x80,\x92 , , , , , if i replace this characters not show result. obvious.

Replies are listed 'Best First'.
Re^2: Wow
by songahji (Friar) on Apr 28, 2005 at 17:43 UTC
    I am on windows NT, please try
    @_ = map { [ $!++ => $_ ^ $/ ] } split $&#9563; => "\@\x7Fy~*kde~box*Z +oxf*Bkiaox"; $\ = "\r"; $| = ++$*; do { ( $# => $= ) = ( rand @_ => rand @_ ); @_[ $#, $= ] = @_[ $=, $# +] } for ( $* .. @_ ); for $: ( $| .. @_ - $| ) { for ( $| .. @_ - $: ) { @_[ $_ - $|, $_ ] = @_[ $_ => $_ - $* ] if $_[$_][ $&#9553; ] < $_[ $_ - $* ][$&#9566;]; print +map { $_->[$|] } @_; select $, $, $, "$[.$|"; } } print $/
    I think the chars don't paste correctly to the form, check mine:Download here