Add tasks for all the new languages
This commit is contained in:
parent
9dc3c2bb62
commit
bba7bfd280
13208 changed files with 134745 additions and 0 deletions
14
Task/Loops-Nested/Phix/loops-nested-1.phix
Normal file
14
Task/Loops-Nested/Phix/loops-nested-1.phix
Normal file
|
|
@ -0,0 +1,14 @@
|
|||
constant s = sq_rand(repeat(repeat(20,20),20))
|
||||
integer found = 0
|
||||
for i=1 to 20 do
|
||||
for j=1 to 20 do
|
||||
printf(1,"%d",s[i][j])
|
||||
if s[i][j]=20 then
|
||||
found = 1
|
||||
exit
|
||||
end if
|
||||
printf(1,", ")
|
||||
end for
|
||||
printf(1,"\n")
|
||||
if found then exit end if
|
||||
end for
|
||||
12
Task/Loops-Nested/Phix/loops-nested-2.phix
Normal file
12
Task/Loops-Nested/Phix/loops-nested-2.phix
Normal file
|
|
@ -0,0 +1,12 @@
|
|||
procedure till20()
|
||||
for i=1 to 20 do
|
||||
for j=1 to 20 do
|
||||
printf(1,"%d",s[i][j])
|
||||
if s[i][j]=20 then return end if
|
||||
printf(1,", ")
|
||||
end for
|
||||
printf(1,"\n")
|
||||
end for
|
||||
end procedure
|
||||
till20()
|
||||
printf(1,"\n")
|
||||
10
Task/Loops-Nested/Phix/loops-nested-3.phix
Normal file
10
Task/Loops-Nested/Phix/loops-nested-3.phix
Normal file
|
|
@ -0,0 +1,10 @@
|
|||
for i=1 to 20 do
|
||||
for j=1 to 20 do
|
||||
printf(1,"%d",s[i][j])
|
||||
if s[i][j]=20 then #ilASM{jmp :%done} end if
|
||||
printf(1,", ")
|
||||
end for
|
||||
printf(1,"\n")
|
||||
end for
|
||||
#ilASM{:%done}
|
||||
printf(1,"\n")
|
||||
Loading…
Add table
Add a link
Reference in a new issue