codepad
[
create a new paste
]
login
|
about
Language:
C
C++
D
Haskell
Lua
OCaml
PHP
Perl
Plain Text
Python
Ruby
Scheme
Tcl
sub f{@a=@b=1..3;@a[$_,2]=($a[2],-$a[$_])for@_;"@a"eq"@b"} # test cases my @true = ( [1,1,1,1], [], [0,0,0,0], [1,0,1,0,1,0], [1,1,0,0,1,1,0,0], [0,1,1,0,0,1,1,0], [1,1,1,0,0,0,0,1], [1,0,0,1,0,0], [1,1,1,1,0,0,0,0,1,0,0,1,0,0], [0,0,0,1,0,0,1,1,0,1,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1], ); my @false = ( [1], [1,1], [1,1,1], [0,1], [1,0,0,0,1], [1,0,0,1,1], [0,1,0,1], [1,1,1,1,0], [0,0,1,0,1,0,0,1], [1,0,1,1,1,1,0,0,0,1,1,0,0,0], [0,1,1,1], ); print "true: ", join(" ", map 1*f(@$_), @true), "\n"; print "false: ", join(" ", map 1*f(@$_), @false), "\n";
Private
[
?
]
Run code
Submit