10 lines
379 B
Factor
10 lines
379 B
Factor
! Copyright (C) 2020 Bubbler.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: tools.test rosalind.pdst math.matrices ;
|
|
IN: rosalind.pdst.tests
|
|
|
|
CONSTANT: example { "TTTCCATTTA" "GATTCATTTC" "TTTCCATTTT" "GTTCCATTTA" }
|
|
CONSTANT: ans { { 0.0 0.4 0.1 0.1 } { 0.4 0.0 0.4 0.3 } { 0.1 0.4 0.0 0.2 } { 0.1 0.3 0.2 0.0 } }
|
|
|
|
{ t } [ example pdst ans 0.001 m~ ] unit-test
|