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

2
Task/Substitution-cipher/ALGOL-68/substitution-cipher.alg
View file

@ -25,7 +25,7 @@ BEGIN # subsitiution cipher #
PROC decode = ( CHAR c, base, STRING code )CHAR:
BEGIN
INT c pos := 0;
char in string( c, c pos, code );
VOID( char in string( c, c pos, code ) );
REPR ( ABS base + ( c pos - 1 ) )
END # decode # ;
STRING result := cipher text;