[CM] markov, produce

Johannes Quint johannes.quint at web.de
Tue, 18 Dec 2007 12:59:20 +0100


--Apple-Mail-1-628628373
Content-Transfer-Encoding: 7bit
Content-Type: text/plain;
	charset=US-ASCII;
	delsp=yes;
	format=flowed

something seems to be wrong with the 'produce'-key of the 'markov'- 
pattern:

in sal:

begin with test = make (<markov>, produce: list (list (:a, make  
(<cycle>, rhythms: {w})),
                                               list (:b, make  
(<cycle>, rhythms: {h. q})),
                                               list (:c, make  
(<cycle>, rhythms: {q q})),
                                               list (:d, make  
(<cycle>, rhythms: {h}))),
                         of: {{a -> b d} {b -> c d} {c -> c d b} {d - 
 > a b c d}})
   print next (test,100)
end

returns the ids instead of the values:

{b c c b c c b c b c b d d c b c d d b d d a b d a b c b c c b c b d  
c b c b c b d b d c c d d a d c d c b d b c c b c c c c b d c b c d a  
d a b c d a b c c b d d d b d a b c c b c c d a b d c b c c c}

is something wrong in my code or is it a bug?

johannes

_________________________

Johannes Quint
Rilkestr.55
D-53225 Bonn
0228 468256
johannes.quint@web.de
http://www.johannes-quint.de


--Apple-Mail-1-628628373
Content-Transfer-Encoding: quoted-printable
Content-Type: text/html;
	charset=ISO-8859-1

<html><body style=3D"word-wrap: break-word; -webkit-nbsp-mode: space; =
-webkit-line-break: after-white-space; ">
something seems to be wrong with the 'produce'-key of the =
'markov'-pattern:<div><br class=3D"webkit-block-placeholder"></div><div>in=
 sal:</div><div><br =
class=3D"webkit-block-placeholder"></div><div><div><font =
class=3D"Apple-style-span" face=3D"Courier">begin with test =3D make =
(&lt;markov&gt;, produce: list (list (:a, make (&lt;cycle&gt;, rhythms: =
{w})),</font></div><div><font class=3D"Apple-style-span" =
face=3D"Courier">=A0=A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =
=A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0list (:b, make (&lt;cycle&gt;, =
rhythms: {h. q})),</font></div><div><font class=3D"Apple-style-span" =
face=3D"Courier">=A0=A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =
=A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0list (:c, make (&lt;cycle&gt;, =
rhythms: {q q})),</font></div><div><font class=3D"Apple-style-span" =
face=3D"Courier">=A0=A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =
=A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0list (:d, make (&lt;cycle&gt;, =
rhythms: {h}))),</font></div><div><font class=3D"Apple-style-span" =
face=3D"Courier">=A0=A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0of: =
{{a -&gt; b d} {b -&gt; c d} {c -&gt; c d b} {d -&gt; a b c =
d}})</font></div><div><font class=3D"Apple-style-span" =
face=3D"Courier">=A0=A0print next (test,100)</font></div><div><font =
class=3D"Apple-style-span" face=3D"Courier">end</font></div><div><br =
class=3D"webkit-block-placeholder"></div><div>returns the ids instead of =
the values:</div><div><br =
class=3D"webkit-block-placeholder"></div><div>{<font =
class=3D"Apple-style-span" face=3D"Courier">b c c b c c b c b c b d d c =
b c d d b d d a b d a b c b c c b c b d c b c b c b d b d c c d d a d c =
d c b d b c c b c c c c b d c b c d a d a b c d a b c c b d d d b d a b =
c c b c c d a b d c b c c c}</font></div><div><br =
class=3D"webkit-block-placeholder"></div><div>is something wrong in my =
code or is it a bug?</div><div><br =
class=3D"webkit-block-placeholder"></div><div>johannes</div><br><div> =
<span class=3D"Apple-style-span" style=3D"border-collapse: separate; =
border-spacing: 0px 0px; color: rgb(0, 0, 0); font-family: Arial Narrow; =
font-size: 18px; font-style: normal; font-variant: normal; font-weight: =
normal; letter-spacing: normal; line-height: normal; text-align: auto; =
-khtml-text-decorations-in-effect: none; text-indent: 0px; =
-apple-text-size-adjust: auto; text-transform: none; orphans: 2; =
white-space: normal; widows: 2; word-spacing: 0px; "><span =
class=3D"Apple-style-span" style=3D"border-collapse: separate; =
border-spacing: 0px 0px; color: rgb(0, 0, 0); font-family: Arial; =
font-size: 11px; font-style: normal; font-variant: normal; font-weight: =
normal; letter-spacing: normal; line-height: normal; text-align: auto; =
-khtml-text-decorations-in-effect: none; text-indent: 0px; =
-apple-text-size-adjust: auto; text-transform: none; orphans: 2; =
white-space: normal; widows: 2; word-spacing: 0px; "><span =
class=3D"Apple-style-span" style=3D"border-collapse: separate; =
border-spacing: 0px 0px; color: rgb(0, 0, 0); font-family: Arial; =
font-size: 11px; font-style: normal; font-variant: normal; font-weight: =
normal; letter-spacing: normal; line-height: normal; text-align: auto; =
-khtml-text-decorations-in-effect: none; text-indent: 0px; =
-apple-text-size-adjust: auto; text-transform: none; orphans: 2; =
white-space: normal; widows: 2; word-spacing: 0px; "><span =
class=3D"Apple-style-span" style=3D"border-collapse: separate; =
border-spacing: 0px 0px; color: rgb(0, 0, 0); font-family: Arial; =
font-size: 11px; font-style: normal; font-variant: normal; font-weight: =
normal; letter-spacing: normal; line-height: normal; text-align: auto; =
-khtml-text-decorations-in-effect: none; text-indent: 0px; =
-apple-text-size-adjust: auto; text-transform: none; orphans: 2; =
white-space: normal; widows: 2; word-spacing: 0px; "><span =
class=3D"Apple-style-span" style=3D"border-collapse: separate; =
border-spacing: 0px 0px; color: rgb(0, 0, 0); font-family: Helvetica; =
font-size: 12px; font-style: normal; font-variant: normal; font-weight: =
normal; letter-spacing: normal; line-height: normal; text-align: auto; =
-khtml-text-decorations-in-effect: none; text-indent: 0px; =
-apple-text-size-adjust: auto; text-transform: none; orphans: 2; =
white-space: normal; widows: 2; word-spacing: 0px; "><div =
style=3D"font-family: Helvetica; font-size: 12px; "><span =
class=3D"Apple-style-span" style=3D"font-family: Helvetica; font-size: =
12px; "><span class=3D"Apple-style-span" style=3D"font-family: =
Helvetica; font-size: 12px; "><span class=3D"Apple-style-span" =
style=3D"font-family: Helvetica; font-size: 12px; "><span =
class=3D"Apple-style-span" style=3D"font-family: Helvetica; font-size: =
12px; ">_________________________</span></span></span></span></div><div =
style=3D"font-family: Helvetica; font-size: 12px; "><br style=3D"; =
font-family: Times New Roman; font-style: italic; ; font-size: 11px; =
"></div><div style=3D"font-family: Helvetica; font-size: 12px; "><span =
class=3D"Apple-style-span" style=3D"font-family: Helvetica; font-size: =
12px; "><span class=3D"Apple-style-span" style=3D"font-family: =
Helvetica; font-size: 12px; "><span class=3D"Apple-style-span" =
style=3D"font-family: Helvetica; font-size: 12px; "><span =
class=3D"Apple-style-span" style=3D"font-family: Helvetica; font-size: =
12px; ">Johannes Quint</span></span></span></span></div><div =
style=3D"font-family: Helvetica; font-size: 12px; "><span =
class=3D"Apple-style-span" style=3D"font-family: Helvetica; font-size: =
12px; "><span class=3D"Apple-style-span" style=3D"font-family: =
Helvetica; font-size: 12px; "><span class=3D"Apple-style-span" =
style=3D"font-family: Helvetica; font-size: 12px; "><span =
class=3D"Apple-style-span" style=3D"font-family: Helvetica; font-size: =
12px; ">Rilkestr.55</span></span></span></span></div><div =
style=3D"font-family: Helvetica; font-size: 12px; "><span =
class=3D"Apple-style-span" style=3D"font-family: Helvetica; font-size: =
12px; "><span class=3D"Apple-style-span" style=3D"font-family: =
Helvetica; font-size: 12px; "><span class=3D"Apple-style-span" =
style=3D"font-family: Helvetica; font-size: 12px; "><span =
class=3D"Apple-style-span" style=3D"font-family: Helvetica; font-size: =
12px; ">D-53225 Bonn</span></span></span></span></div><div =
style=3D"font-family: Helvetica; font-size: 12px; "><span =
class=3D"Apple-style-span" style=3D"font-family: Helvetica; font-size: =
12px; "><span class=3D"Apple-style-span" style=3D"font-family: =
Helvetica; font-size: 12px; "><span class=3D"Apple-style-span" =
style=3D"font-family: Helvetica; font-size: 12px; "><span =
class=3D"Apple-style-span" style=3D"font-family: Helvetica; font-size: =
12px; ">0228 468256</span></span></span></span></div><div =
style=3D"font-family: Helvetica; font-size: 12px; "><span =
class=3D"Apple-style-span" style=3D"font-family: Helvetica; font-size: =
12px; "><span class=3D"Apple-style-span" style=3D"font-family: =
Helvetica; font-size: 12px; "><span class=3D"Apple-style-span" =
style=3D"font-family: Helvetica; font-size: 12px; "><span =
class=3D"Apple-style-span" style=3D"font-family: Helvetica; font-size: =
12px; ">johannes.quint@<a =
href=3D"http://web.de">web.de</a></span></span></span></span></div><span =
class=3D"Apple-style-span" style=3D"font-family: Helvetica; font-size: =
12px; "><span class=3D"Apple-style-span" style=3D"font-family: =
Helvetica; font-size: 12px; "><span class=3D"Apple-style-span" =
style=3D"font-family: Helvetica; font-size: 12px; "><a =
href=3D"http://www.johannes-quint.de">http://www.johannes-quint.de</a></sp=
an></span></span></span></span></span></span></span> =
</div><br></div></body></html>=

--Apple-Mail-1-628628373--