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

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

42
Task/Write-language-name-in-3D-ASCII/Seed7/write-language-name-in-3d-ascii.seed7 Normal file
View file

@ -0,0 +1,42 @@
$include "seed7_05.s7i";
const array string: name is [] (
" *** * ***** ",
"* * * ",
"* *** *** **** * ",
"* * * * * * * * ",
" *** * * * * * * * ",
" * ***** ***** * * * ",
" * * * * * * ",
" * * * * * * ",
" *** *** *** **** * ");
const proc: main is func
local
var integer: index is 0;
var string: help is "";
var string: line is "";
var string: previousLine is "";
var integer: pos is 0;
begin
for index range 1 to length(name) do
help := replace(name[index], " ", " ");
line := "" lpad length(name) - index <&
replace(replace(help, "*", "///"), "/ ", "/\\");
if previousLine = "" then
writeln(line);
else
for pos range 1 to length(line) do
if line[pos] <> ' ' then
write(line[pos]);
else
write(previousLine[pos]);
end if;
end for;
writeln;
end if;
previousLine := "" lpad length(name) - index <&
replace(replace(help, "*", "\\\\\\"), "\\ ", "\\/");
end for;
writeln(previousLine);
end func;