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

15 lines
477 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 fry grouping io io.encodings.utf8 io.files
rosalind.common sequences splitting ;
IN: rosalind.splc
: splc ( assoc -- protein )
values 1 cut [ '[ _ split-subseq ] map concat ] each
concat { "TU" } substitute 3 group [ rna3>amino ] "" map-as
"." split first ;
: splc-main ( -- ) "datasets/rosalind/splc.txt" utf8 file-contents
fasta>assoc splc print ;
MAIN: splc-main