extra/math/distances/distances-tests.factor

   1 ! Copyright (C) 2012 John Benediktsson
   2 ! See https://factorcode.org/license.txt for BSD license
   3
   4 USING: kernel math.distances math.functions tools.test ;
   5
   6 { 1 } [ "hello" "jello" hamming-distance ] unit-test
   7
   8 { 0.0 } [ { 1 2 3 } dup cosine-distance ] unit-test
   9 { t } [ { 1 2 3 } { 4 5 6 } cosine-distance 0.02536815380292379 1e-10 ~ ] unit-test
  10 { t } [ { 1 2 3 } { 1 -2 3 } cosine-distance 0.5714285714285714 1e-10 ~ ] unit-test
  11
  12 { 143/105 } [ { 1 2 3 } { 4 5 6 } canberra-distance ] unit-test
  13
  14 { 3/7 } [ { 1 2 3 } { 4 5 6 } bray-curtis-distance ] unit-test
  15
  16 { t } [ { 1 2 3 } dup correlation-distance 0.0 1e-10 ~ ] unit-test
  17 { t } [ { 1 2 3 } { 1 2 1 } correlation-distance 1.0 1e-10 ~ ] unit-test
  18 { t } [ { 1 2 3 } { 3 2 1 } correlation-distance 2.0 1e-10 ~ ] unit-test