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
|