31 lines
509 B
Factor
31 lines
509 B
Factor
! Copyright (C) 2020 Bubbler.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: multiline rosalind.common rosalind.cons tools.test ;
|
|
IN: rosalind.cons.tests
|
|
|
|
STRING: fasta-example
|
|
>Rosalind_1
|
|
ATCCAGCT
|
|
>Rosalind_2
|
|
GGGCAACT
|
|
>Rosalind_3
|
|
ATGGATCT
|
|
>Rosalind_4
|
|
AAGCAACC
|
|
>Rosalind_5
|
|
TTGGAACT
|
|
>Rosalind_6
|
|
ATGCCATT
|
|
>Rosalind_7
|
|
ATGGCACT
|
|
;
|
|
|
|
{
|
|
{
|
|
{ 5 1 0 0 5 5 0 0 }
|
|
{ 0 0 1 4 2 0 6 1 }
|
|
{ 1 1 6 3 0 1 0 0 }
|
|
{ 1 5 0 0 0 1 1 6 }
|
|
}
|
|
"ATGCAACT"
|
|
} [ fasta-example fasta>assoc cons ] unit-test |