RosettaCodeData/Task/FASTA-format/J/fasta-format-1.j

3 lines
128 B
Plaintext

require 'strings' NB. not needed for J versions greater than 6.
parseFasta=: ((': ' ,~ LF&taketo) , (LF -.~ LF&takeafter));._1