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

20 lines
646 B
Factor
Raw Normal View History

2020-11-29 08:22:10 +01:00
! Copyright (C) 2021 Bubbler.
! See http://factorcode.org/license.txt for BSD license.
USING: assocs assocs.extras grouping.extras io io.encodings.utf8
io.files kernel math math.functions math.parser prettyprint
rosalind.common sequences sequences.extras sorting splitting
strings ;
IN: rosalind.spec
: inv-mass-table ( -- assoc )
protein-mass-table [ 20 * round >integer ] map-values assoc-invert ;
: spec ( seq -- ans )
natural-sort [ swap - 20 * round >integer ] 2clump-map
inv-mass-table substitute >string ;
: spec-main ( -- )
"datasets/rosalind/spec.txt" utf8 file-contents "\n" split [ dec> ] map
spec print ;
MAIN: spec-main