I'll try not to hurt you, Henry. While you are not looking I'll replace
<@:{ by ([: < {) and ?@$ by ([: ? $) . It works! A truly remarkable
one-liner. Greetings from Kip
On 12/1/2011 6:00 PM, Henry Rich wrote:
> toss =: (dice =: (6 6 6#:12 145 157 185 197 215)<@:{"1 2 (#:i.6){'
> o') {~ 2 10 ?@$ 6:
> toss''
> +---+---+---+---+---+---+---+---+---+---+
> |o o|o o|o |o o|o o|o |o | |o o|o o|
> | | o | |o o| o | o | | o | | |
> |o o|o o| o|o o|o o| o| o| |o o|o o|
> +---+---+---+---+---+---+---+---+---+---+
> |o o|o |o o|o |o |o o|o |o o| |o o|
> |o o| o |o o| o | |o o| |o o| o |o o|
> |o o| o|o o| o| o|o o| o|o o| |o o|
> +---+---+---+---+---+---+---+---+---+---+
>
> Henry Rich, whose @ will be pried from his cold dead fingers
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
