I'm comparing tosses, so could you match this in your own style:
sla=: 13 :'cla=:1+? 2 10$y'
tossla=: 13 :'(<"2)3 3$"1(<:sla y){d'
tossla 6
cla
tossla 6
cla
My c is a noun of the actual "dice" that are tossed. The display should
no longer be necessary for everyone to know what is happening.
Toss will then require the number of faces on the die. This will ultimate
be the result of a toss.
throwrs=: ] {~ [: ? [ $ [: # ]
tossrs=: 2 10 throw dice
Thanks in advance. I'm enjoying your style.
Linda
-----Original Message-----
From: programming-boun...@jsoftware.com
[mailto:programming-boun...@jsoftware.com] On Behalf Of Ric Sherlock
Sent: Thursday, December 01, 2011 6:01 AM
To: Programming forum
Subject: Re: [Jprogramming] Turkey Roll - Challenge 2
The following is getting away from the actual rules as of the task but
is perhaps useful nonetheless ...
>From a storage and processing POV, it will be leaner and faster not to
store the dice boxed. The boxing is nice for display purposes though
so that could be made a separate verb.
facerows=: 0 0 0,1 0 0,0 1 0,0 0 1,:1 0 1 NB. row types on faces
facechars=: ' o' NB. chars used to draw faces
faces=: 0 2 0,1 0 3,1 2 3,4 0 4,4 2 4,:4 4 4 NB. define faces as rows
dice=: facechars {~ facerows {~ faces NB. create dice
displayDice=: [: smoutput <"2 NB. display boxed di
throw=: ] {~ [: ? [ $ [: # ] NB. verb to throw dice
toss=: 2 10 throw ] NB. throw 2 dice 10 times
sumThrows=: [: +/ [: ([: +/ ,)"2 'o' = ] NB. sum each throw
fd=: [: /:~ ({. , #)/.~ NB. calc frequency distribution
displayDice dice
+---+---+---+---+---+---+
| |o |o |o o|o o|o o|
| o | | o | | o |o o|
| | o| o|o o|o o|o o|
+---+---+---+---+---+---+
displayDice Toss1=: toss dice
+---+---+---+---+---+---+---+---+---+---+
|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|
+---+---+---+---+---+---+---+---+---+---+
sumThrows Toss1
5 4 9 4 5 5 5 6 10 7
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
