Order by pair comparisons: Difference between revisions
Realize in F#
(Realize in F#) |
|||
Line 103:
=={{header|F_Sharp|F#}}==
<lang fsharp>
// Order by pair comparisons. Nigel Galloway: April 23rd., 2021
type colours= Violet |Red |Green |Indigo |Blue |Yellow |Orange
let fN,fG=let mutable z=0 in ((fun()->z),(fun n g->z<-z+1; compare n g))
printfn "[Red;Orange;Yellow;Green;Blue;Indigo;Violet] sorted to %A using %d comparisons" ([Red;Orange;Yellow;Green;Blue;Indigo;Violet]|>List.sortWith(fun n g->fG n g)) (fN())
</lang>
{{out}}
<pre>
[Red;Orange;Yellow;Green;Blue;Indigo;Violet] sorted to [Violet; Red; Green; Indigo; Blue; Yellow; Orange] using 25 comparisons
</pre>
=={{header|Factor}}==
Asking the user for an ordering specifier inside a custom comparator:
| |||