Anonymous user
FASTA format: Difference between revisions
Adds Clojure solution
m (→{{header|REXX}}: added wording to the REXX section header.) |
(Adds Clojure solution) |
||
Line 360:
}
}</lang>
=={{header|Clojure}}==
<lang clojure>(defn fasta [pathname]
(with-open [r (clojure.java.io/reader pathname)]
(doseq [line (line-seq r)]
(if (= (first line) \>)
(print (format "%n%s: " (subs line 1)))
(print line)))))</lang>
=={{header|Common Lisp}}==
| |||