Unique characters in each string: Difference between revisions
Realize in F#
(Added AppleScript.) |
(Realize in F#) |
||
Line 41:
<lang applescript>{"1", "2", "3", "a", "b", "c"}</lang>
=={{header|F_Sharp|F#}}==
<lang fsharp>
// Unique characters in each string: Nigel Galloway. May 12th., 2021
let fN g=g|>Seq.countBy id|>Seq.filter(fun(_,n)->n=1)
let fUc g=g|>List.map fN|>Seq.concat|>Seq.countBy id|>Seq.filter(fun(_,n)->n=List.length g)|>Seq.map(fun((n,_),_)->n)|>Seq.sort
printfn "%s" (fUc ["1a3c52debeffd";"2b6178c97a938stf";"3ycxdb1fgxa2yz"]|>Array.ofSeq|>System.String)
</lang>
{{out}}
<pre>
123abc
</pre>
=={{header|Factor}}==
{{works with|Factor|0.99 2021-02-05}}
| |||