It would be really interesting to see Rogers moo functionality explained
line by line operation by operation
load 'misc' NB. needs "prompt" from "misc"
display=: 1!:2&2
NB. univ =: (*./@(~:"1) # ]) @ (#: i.@(*/))
univ =: #: i.@(*/)
guess =: [EMAIL PROTECTED] { ]
score =: ; prompt@(,&' ')@":
solved =: (('b' $~ [EMAIL PROTECTED]) -: ])&>/@[
bull =: +/@('b'&=)@(>@{:@[) = >@[EMAIL PROTECTED] +/@(="1) ]
NB. bc =: #@(>@{:@[) = ] +/@e."1 >@[EMAIL PROTECTED]
bc =: #@(>@{:@[) = ] ([ +/@:([ <. -~) [EMAIL PROTECTED] {. ])&(#/.~)"1 ],"1
>@[EMAIL PROTECTED]
prune =: ((bull *. bc) # ]) ` (''"_) @. solved
s0 =: display@('no choices left'&[)
s1 =: display@('one choice left; it must be '&,)@":@,
sn =: display@(,&' choices left')@":@#
state =: [EMAIL PROTECTED](0 1 i. #) ` ] @. ('' -: ])
moo1 =: ([state)@([EMAIL PROTECTED] prune ])^:(1&<@#)
moo =: moo1^:_ @ univ
2008/1/7, Raul Miller <[EMAIL PROTECTED]>:
>
> On Jan 7, 2008 3:20 PM, Björn Helgason <[EMAIL PROTECTED]> wrote:
> > I have to say that I would often like to get explanations about what
> some of
> > the complicated structures are doing.
>
> Feel free to ask specific questions!
>
> --
> Raul
> ----------------------------------------------------------------------
> For information about J forums see http://www.jsoftware.com/forums.htm
>
--
Björn Helgason, Verkfræðingur
Fugl&Fiskur ehf, Þerneyjarsund 23, Box 127
801 Grímsnes ,t-póst: [EMAIL PROTECTED]
Skype: gosiminn, gsm: +3546985532
Landslags og skrúðgarðagerð, gröfuþjónusta
http://groups.google.com/group/J-Programming
Tæknikunnátta höndlar hið flókna, sköpunargáfa er meistari einfaldleikans
góður kennari getur stigið á tær án þess að glansinn fari af skónum
/|_ .-----------------------------------.
,' .\ / | Með léttri lund verður |
,--' _,' | Dagurinn í dag |
/ / | Enn betri en gærdagurinn |
( -. | `-----------------------------------'
| ) | (\_ _/)
(`-. '--.) (='.'=)
`. )----' (")_(")
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
