On 12/1/2011 5:25 PM, Linda Alvord wrote: > ... see if you can define toss 6 as a monadic form of toss to produce different results when repeated.
I BELIEVE YOU WANT VERB tosses BELOW. toss BELOW IS A NOUN. REVISED SOLUTION FOLLOWS, VERB tosses DISCUSSED AT END. KIP one =: ' ',' o ',:' ' two =: 'o ',' ',:' o' three =: 'o ',' o ',:' o' four =: 'o o',' ',:'o o' five =: 'o o',' o ',:'o o' six =: 'o o','o o',:'o o' ]dice =: one;two;three;four;five;six +---+---+---+---+---+---+ | |o |o |o o|o o|o o| | o | | o | | o |o o| | | o| o|o o|o o|o o| +---+---+---+---+---+---+ tosses =: [: ? 6 $~ 2 , ] NB. y tosses of two dice ]toss =: tosses 10 2 0 2 4 2 2 2 4 4 3 4 1 3 5 2 5 2 5 1 3 toss { dice NB. index 2 selects die three +---+---+---+---+---+---+---+---+---+---+ |o | |o |o o|o |o |o |o o|o o|o o| | o | o | o | o | o | o | o | o | o | | | o| | o|o o| o| o| o|o o|o o|o o| +---+---+---+---+---+---+---+---+---+---+ |o o|o |o o|o o|o |o o|o |o o|o |o o| | o | | |o o| o |o o| o |o o| | | |o o| o|o o|o o| o|o o| o|o o| o|o o| +---+---+---+---+---+---+---+---+---+---+ ]sums =: 2 + +/ toss 8 3 7 11 6 9 6 11 7 8 fd =: [: /:~ ~. ,. [: +/"1 ~. =/ ] fd sums 3 1 6 2 7 2 8 2 9 1 11 2 4!:0 'dice';'toss';'sums';'fd' NB. 0 means noun, 3 means verb 0 0 0 3 (tosses 6) { dice NB. six tosses of two 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| | +---+---+---+---+---+---+ (tosses 6) { dice NB. six new tosses +---+---+---+---+---+---+ |o |o o|o o|o |o |o o| | | |o o| | | | | o|o o|o o| o| o|o o| +---+---+---+---+---+---+ |o o|o o|o o|o o|o o| | |o o|o o| | | | o | |o o|o o|o o|o o|o o| | +---+---+---+---+---+---+ NB. you can do (dice {~ tosses) 6 NB. six new tosses +---+---+---+---+---+---+ | |o |o o|o o|o o|o o| | o | o | o | o |o o| | | | o|o o|o o|o o|o o| +---+---+---+---+---+---+ |o o|o o|o o|o |o | | |o o| o | | o | o | o | |o o|o o|o o| o| o| | +---+---+---+---+---+---+ NB. train dice {~ tosses has accepted form noun verb verb NB. finally sixtosses =: [: (dice {~ tosses) 6"_ NB. 6"_ y is always 6 sixtosses '' NB. argument '' (or any noun) produces six tosses +---+---+---+---+---+---+ |o |o o|o |o |o | | | | o | | | o | o | | o|o o| o| o| o| | +---+---+---+---+---+---+ |o o| |o o|o o|o o|o o| | o | o |o o| o |o o| | |o o| |o o|o o|o o|o o| +---+---+---+---+---+---+ sixtosses'' +---+---+---+---+---+---+ |o o|o |o o|o o|o o|o o| | o | o |o o| o | o | o | |o o| o|o o|o o|o o|o o| +---+---+---+---+---+---+ |o |o o|o o|o o|o |o o| | | | o | o | |o o| | o|o o|o o|o o| o|o o| +---+---+---+---+---+---+ > On 11/26/2011 3:14 AM, Linda Alvord wrote: >> Version 3 Rich Text >> >> Version 2 Plain text. How can I make the graphic symbols look good? >> >> PLEASE DO NOT REPLY BEFORE December I, 2011 at 12:00 am EST ! >> >> The turkey roll challenge, named in honor of the Thanksgiving Day >> holiday, focuses on the verb roll or ? with one argument. >> >> Create two nouns and a verb that will generate the following results. >> >> dice >> ----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│ >> L---+---+---+---+---+---- >> >> toss >> ----T-T---T-T---T-T---T-T---T-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│ │ │ >> L---+-+---+-+---+-+---+-+---+-+---+-+---+-+---+-+---+-+---- >> toss >> ----T-T---T-T---T-T---T-T---T-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│ │ │ >> L---+-+---+-+---+-+---+-+---+-+---+-+---+-+---+-+---+-+---- >> >> c=:3 8 7 12 9 8 9 7 4 12 NB. The list c is the sums of the >> NB. second toss of ten dice >> fd c >> 3 1 NB. A frequency distribution of the >> 4 1 NB. ten tosses >> 7 2 >> 8 2 >> 9 2 >> 12 2 >> >> 4!:0 'dice';'toss';'c';'fd' >> 0 0 0 3 NB. 0 for nouns, 3 for verbs >> >> >> Some rules and hints: >> >> Write all verbs and nouns without @ . You can use several nouns and >> verbs to make a final noun or verb. Here are some things about roll. >> >> r=: 13 :'?y' >> r >> ? >> r 4 >> 3 >> r 4 >> 2 >> s=: 13 :'r 3 4$y' >> s >> [: r 3 4 $ ] >> s 5 >> 3 3 3 2 >> 3 2 3 4 >> 2 4 0 4 >> s 5 >> 1 3 1 0 >> 3 1 4 1 >> 4 2 1 3 >> t=: 13 :'(r s y)*3 4$100*i.4' >> 5 t 5 >> 1003 1000.69 1000.5 1001.49 >> 1001 1000.55 1000 1001 >> 1000.89 1001.03 1002 1000 >> 5 t 5 >> 1001 1002 1000 1001.37 >> 1003 1000.04 1000.23 1002 >> 1000.01 1001 1000.3 1001.16 >> >> Be sure to get unique results as you go. Notice how to build a complex >> result with several shorter functions. >> >> Linda >> ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm