FASTA format: Difference between revisions
→{{header|Objeck}}
Line 1,002:
tokens := System.Utility.Parser->Tokenize(System.IO.File.FileReader->ReadFile(args[0]))<String>;
each(i : tokens) {
token := tokens->Get(i);
if(token->Get(0) = '>') {
is_line := true;
if(i <> 0) {
"\n"->Print();
};
else
"{$token}: "->Print();
is_line := false;
| |||