10 lines
246 B
Factor
10 lines
246 B
Factor
USING: formatting io kernel sequences ;
|
|
IN: rosetta-code.fasta
|
|
|
|
: process-fasta-line ( str -- )
|
|
dup ">" head? [ rest "\n%s: " printf ] [ write ] if ;
|
|
|
|
: main ( -- )
|
|
readln rest "%s: " printf [ process-fasta-line ] each-line ;
|
|
|
|
MAIN: main
|