20 lines
632 B
Factor
20 lines
632 B
Factor
! Copyright (C) 2020 Bubbler.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: kernel math.functions multiline rosalind.common rosalind.gc sequences
|
|
tools.test ;
|
|
IN: rosalind.gc.tests
|
|
|
|
STRING: fasta-example
|
|
>Rosalind_6404
|
|
CCTGCGGAAGATCGGCACTAGAATAGCCAGAACCGTTTCTCTGAGGCTTCCGGCCTTCCC
|
|
TCCCACTAATAATTCTGAGG
|
|
>Rosalind_5959
|
|
CCATCGGTAGCGCATCCTTAGTCCAATTAAGTCCCTATCCAGGCGCTCCGCCGAAGGTCT
|
|
ATATCCATTTGTCAGCAGACACGC
|
|
>Rosalind_0808
|
|
CCACCCTCGTGGTATGGCTAGGCATTCAGGAACCGGAGAACGCTTCAGACCAGCCCGGAC
|
|
TGGGAACCTGCGGGCAGTAGGTGGAAT
|
|
;
|
|
|
|
{ t t } [ fasta-example fasta>assoc gc first2 [ "Rosalind_0808" = ] [ 60.919540 1e-4 ~ ] bi* ] unit-test
|