Brent, thanks for answering.<div>Sorry, by &quot;set&quot; I meant &quot;access&quot; [the field &quot;attributes&quot;]. But you already answered, it depends on the ML module implementation choice.</div><div><br></div><div>
One more question about elegance:</div><div>How to make Examples &quot;sortable&quot; by distance to a reference point &quot;referenceEx&quot;?</div><meta http-equiv="content-type" content="text/html; charset=utf-8"><div>
<br></div><div>For instance, if referenceEx was not needed:</div><meta http-equiv="content-type" content="text/html; charset=utf-8"><div>-----------------------------</div><div>listExs = [Example {att=[2,5,3]}, Example {att=[0,2,3]}, Example {att=[2,0,9]}]</div>
<div><br></div><meta http-equiv="content-type" content="text/html; charset=utf-8"><div>sortedExamples =</div><div>     sort listExs</div><meta http-equiv="content-type" content="text/html; charset=utf-8"><meta http-equiv="content-type" content="text/html; charset=utf-8"><meta http-equiv="content-type" content="text/html; charset=utf-8"><div>
==================</div><div><br></div><div>With referenceEx, I tried this, but it is getting ugly:</div><meta http-equiv="content-type" content="text/html; charset=utf-8"><div>------------------------------</div><meta http-equiv="content-type" content="text/html; charset=utf-8"><div>
sortedExamples =</div><meta http-equiv="content-type" content="text/html; charset=utf-8"><div>       sort $ map (<meta http-equiv="content-type" content="text/html; charset=utf-8">ExamplesPair referenceEx) listExs</div><div>
================</div><meta http-equiv="content-type" content="text/html; charset=utf-8"><div><br></div><div>------ML.hs------------------------------------------</div><div>data ExamplesPairClass =</div><div><div>      <meta http-equiv="content-type" content="text/html; charset=utf-8">ExamplesPair {ex1 :: Example, ex2 :: Example} deriving (Show, Eq)</div>
<div><br></div><meta http-equiv="content-type" content="text/html; charset=utf-8"><div>instance Ord <meta http-equiv="content-type" content="text/html; charset=utf-8">ExamplesPairClass where</div><div>       (ExamplesPair ex1 referenceEx) ≤ (ExamplesPair ex2 referenceEx) =</div>
<div>       (ex1 distance referenceEx) ≤ (ex2 distance referenceEx)</div><meta http-equiv="content-type" content="text/html; charset=utf-8"><meta http-equiv="content-type" content="text/html; charset=utf-8"><meta http-equiv="content-type" content="text/html; charset=utf-8"><meta http-equiv="content-type" content="text/html; charset=utf-8"><meta http-equiv="content-type" content="text/html; charset=utf-8"></div>
<div>==================================</div><div><br></div><div>Sorry that amount of code, it is terrible to read with no colorizing.</div><div><br></div><div><br></div><div>Davi</div>