aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2024-11-04 20:28:54 -08:00
parent 52a6ef48dd
commit 157b70a810
604 changed files with 14253 additions and 2100 deletions
Download patch file Download diff file Expand all files Collapse all files

13
Task/FASTA-format/ALGOL-68/fasta-format.alg
View file

@ -8,15 +8,16 @@ BEGIN # read FASTA format data from standard input and write the results to #
read( ( line, newline ) );
NOT at eof
DO
IF line /= "" THEN # non-empty line #
INT start := LWB line;
BOOL is heading = line[ start ] = ">"; # check for heading line #
IF line /= "" THEN # non-empty line #
INT start pos := LWB line;
BOOL is heading = line[ start pos ] = ">"; # check for heading line #
IF is heading THEN
print( ( newline ) );
start +:= 1
start pos +:= 1
FI;
print( ( line[ start : ] ) );
print( ( line[ start pos : ] ) );
IF is heading THEN print( ( ": " ) ) FI
FI
OD
OD;
print( ( newline ) )
END