1
0
Fork 0
factor-puzzles/rosalind/tran/tran.factor

21 lines
640 B
Factor
Raw Normal View History

2020-11-29 08:22:10 +01:00
! Copyright (C) 2020 Bubbler.
! See http://factorcode.org/license.txt for BSD license.
USING: assocs combinators io.encodings.utf8 io.files kernel math
math.statistics prettyprint rosalind.common sequences sorting
strings ;
IN: rosalind.tran
: trans-type ( seq -- type/f )
natural-sort >string
{ { [ dup { "AG" "CT" } member? ] [ drop 1 ] }
{ [ dup first2 = not ] [ drop 2 ] }
[ drop f ] } cond ;
: tran ( str1 str2 -- ratio )
zip [ trans-type ] map sift histogram
{ 1 2 } swap substitute first2 /f ;
: tran-main ( -- ) "datasets/rosalind/tran.txt" utf8 file-contents
fasta>assoc values first2 tran . ;
MAIN: tran-main