my @list = ( -4 .. 6 ); print map((1)x$_,@list) - map((1)x-$_,@list); [download]
- tye
In reply to Re^3: (almost) foldl (-map) by tye in thread (almost) foldl by dk