Bioinformatics/Sequence mutation: Difference between revisions
Content added Content deleted
(Add Factor) |
m (→{{header|Factor}}: [ ... ] [ ] bi is just [ ... ] keep) |
||
| Line 335: | Line 335: | ||
! Prettyprint a dna sequence in blocks of n. |
! Prettyprint a dna sequence in blocks of n. |
||
: .dna ( seq n -- ) |
: .dna ( seq n -- ) |
||
"SEQUENCE:" print [ group ] |
"SEQUENCE:" print [ group ] keep |
||
[ * swap " %3d: %s\n" printf ] curry each-index ; |
[ * swap " %3d: %s\n" printf ] curry each-index ; |
||