I like this format better than the next one. However, if the code is "cleaner" then resubmit your it in this format. Change affirm 0 3 0 3 at the end also.
I can't remember what part of speech a niladic expression was in the old days. I didn't worry about parts of speech then. Actually, I didn't pay much attention to them in the sixth grade either when I should have. Finally, for some future exercises, the monadic version will be better and your display is exactly what I should have wanted. 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
