A modest attempt to improve Raul's re-presentation of
dyadic ? (Raul posted the first three lines,
following)
swap=: (|[EMAIL PROTECTED] { ])`[`]}
dealall=: i. ([: > [: swap&.>/ ,&.> , [: < [) [EMAIL PROTECTED]
deal=: [ {. [EMAIL PROTECTED]
4 deal 8
6 3 1 0
8 deal 4
2 3 0 1 0 0 0 0
8 ? 4
|domain error
| 8 ?4
xlteqy =: 4 : 'assert. x <: y'
deal=: ([ {. [EMAIL PROTECTED]) [ ([ xlteqy ])
8 deal 4
|assertion failure: xlteqy
| x<:y
____________________________________________________________________________________
Bored stiff? Loosen up...
Download and play hundreds of games for free on Yahoo! Games.
http://games.yahoo.com/games/front
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
