My fault, it should be:
toss=: dice {~ 2 10 ?@$6:
toss''
Hallo Linda Alvord, je schreef op 02-12-11 14:09:
> Thanks to "aai" I got this to work. However, as all the others before
> it, it
> Will repeat when used again.
>
> dice =: (6 6 6#:12 145 157 185 197 215)<@:{"1 2(#:i.6){' o'
> toss=: dice {~ 2 10 ?@$6
> toss
> ----T---T---T---T---T---T---T---T---T---┐
> │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│ │
> L---+---+---+---+---+---+---+---+---+----
> toss
> ----T---T---T---T---T---T---T---T---T---┐
> │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│ │
> L---+---+---+---+---+---+---+---+---+----
>
> It is impressive the first time!
>
> Linda
>
>
> -----Original Message-----
> From: programming-boun...@jsoftware.com
> [mailto:programming-boun...@jsoftware.com] On Behalf Of Linda Alvord
> Sent: Friday, December 02, 2011 6:25 AM
> To: 'Programming forum'
> Subject: Re: [Jprogramming] Turkey Roll - Challenge 2 Rich Text
>
> I'm still stuck with getting this to run in j701jhs . At least I can get
> the whole line to run before it gives an error:
>
> dice =: (6 6 6#:12 145 157 185 197 215)<@:{"1 2 (#:i.6){'o') {~ 2 10 ?@$
> 6:
> |spelling error
> | toss =:
> (dice =: (6 6 6#:12 145 157 185 197 215)<@:{"1 2 (#:i.6){'o') {~ 2 10 ?@$ 6:
> | ^
>
> Linda
>
>
> -----Original Message-----
> From: programming-boun...@jsoftware.com
> [mailto:programming-boun...@jsoftware.com] On Behalf Of Kip Murray
> Sent: Friday, December 02, 2011 2:39 AM
> To: Programming forum
> Subject: Re: [Jprogramming] Turkey Roll - Challenge 2 Rich Text
>
> 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
>
> ----------------------------------------------------------------------
> For information about J forums see http://www.jsoftware.com/forums.htm
>
> ----------------------------------------------------------------------
> For information about J forums see http://www.jsoftware.com/forums.htm
--
Met vriendelijke groet,
@@i=Arie Groeneveld
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
