<html><body style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space; "><br><div><div>On Jun 23, 2010, at 1:50 PM, Martin Drautzburg wrote:</div><br class="Apple-interchange-newline"><blockquote type="cite"><span class="Apple-style-span" style="border-collapse: separate; color: rgb(0, 0, 0); font-family: Helvetica; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; orphans: 2; text-align: auto; text-indent: 0px; text-transform: none; white-space: normal; widows: 2; word-spacing: 0px; -webkit-border-horizontal-spacing: 0px; -webkit-border-vertical-spacing: 0px; -webkit-text-decorations-in-effect: none; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px; font-size: medium; ">I said that a rhythm is a series of Moments (or Beats), each expressed as<span class="Apple-converted-space">&nbsp;</span><br>fractions of a bar. But each Moment also has volume. So I could model rhythm<span class="Apple-converted-space">&nbsp;</span><br>as Pairs of (Moment, Volume). However I certanly do not want to specify both<span class="Apple-converted-space">&nbsp;</span><br>the Moments and the Volume, but rather compute one from the other.</span></blockquote></div><br><div>How about something like:</div><div><br></div><div><font class="Apple-style-span" face="Courier">type RhythmScheme = [(Maybe Moment, Maybe Volume)]&nbsp;</font></div><div><font class="Apple-style-span" face="Courier">type Rhythm &nbsp; &nbsp; &nbsp; = [(Moment, Volume)]</font></div><div><font class="Apple-style-span" face="Courier"><br></font></div><div><div><font class="Apple-style-span" face="Courier">-- The resolution function will then be a function with type:</font></div></div><div><font class="Apple-style-span" face="Courier"><br></font></div><div><font class="Apple-style-span" face="Courier">rhythm_from_scheme :: RhythmScheme -&gt; Rhythm</font></div><div><font class="Apple-style-span" face="Courier"><br></font></div><div><font class="Apple-style-span" face="Courier">-- Though you might want something like&nbsp;</font></div><div><font class="Apple-style-span" face="Courier">-- rhythm_from_scheme :: RhythmScheme -&gt; IO Rhythm</font></div><div><font class="Apple-style-span" face="Courier">-- or</font></div><div><font class="Apple-style-span" face="Courier">-- rhythm_from_scheme :: Seed -&gt; RhythmScheme -&gt; Rhythm</font></div><div><font class="Apple-style-span" face="Courier">-- so that you can get and use random numbers, for example.</font></div><div><br></div><div><br></div><div>I guess the point of my suggestion is to let pattern matching in function definitions deal with unification of constraints. &nbsp;Beta reduction and unification are two sides of a coin.</div></body></html>