Jaccard index: Difference between revisions

m
→‎{{header|Factor}}: easier on the eyes without the commas
No edit summary
m (→‎{{header|Factor}}: easier on the eyes without the commas)
Line 28:
{ { } { 1 2 3 4 5 } { 1 3 5 7 9 } { 2 4 6 8 10 } { 2 3 5 7 } { 8 } }
[ 2 <combinations> ] [ 2 repeat 2 group append ] bi
[ 2dup jaccard "%[%d, %] %[%d,u %]u -> %u\n" printf ] assoc-each</lang>
{{out}}
<pre>
{ } { 1, 2, 3, 4, 5 } -> 0
{ } { 1, 3, 5, 7, 9 } -> 0
{ } { 2, 4, 6, 8, 10 } -> 0
{ } { 2, 3, 5, 7 } -> 0
{ } { 8 } -> 0
{ 1, 2, 3, 4, 5 } { 1, 3, 5, 7, 9 } -> 3/7
{ 1, 2, 3, 4, 5 } { 2, 4, 6, 8, 10 } -> 1/4
{ 1, 2, 3, 4, 5 } { 2, 3, 5, 7 } -> 1/2
{ 1, 2, 3, 4, 5 } { 8 } -> 0
{ 1, 3, 5, 7, 9 } { 2, 4, 6, 8, 10 } -> 0
{ 1, 3, 5, 7, 9 } { 2, 3, 5, 7 } -> 1/2
{ 1, 3, 5, 7, 9 } { 8 } -> 0
{ 2, 4, 6, 8, 10 } { 2, 3, 5, 7 } -> 1/8
{ 2, 4, 6, 8, 10 } { 8 } -> 1/5
{ 2, 3, 5, 7 } { 8 } -> 0
{ } { } -> 1
{ 1, 2, 3, 4, 5 } { 1, 2, 3, 4, 5 } -> 1
{ 1, 3, 5, 7, 9 } { 1, 3, 5, 7, 9 } -> 1
{ 2, 4, 6, 8, 10 } { 2, 4, 6, 8, 10 } -> 1
{ 2, 3, 5, 7 } { 2, 3, 5, 7 } -> 1
{ 8 } { 8 } -> 1
</pre>
1,808

edits