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/Sierpinski-triangle/Phix/sierpinski-triangle.phix
Normal file
14
Task/Sierpinski-triangle/Phix/sierpinski-triangle.phix
Normal file
|
|
@ -0,0 +1,14 @@
|
|||
procedure sierpinski(integer n)
|
||||
integer lim = power(2,n)-1
|
||||
for y=lim to 0 by -1 do
|
||||
puts(1,repeat(' ',y))
|
||||
for x=0 to lim-y do
|
||||
puts(1,iff(and_bits(x,y)?" ":"* "))
|
||||
end for
|
||||
puts(1,"\n")
|
||||
end for
|
||||
end procedure
|
||||
|
||||
for i=1 to 5 do
|
||||
sierpinski(i)
|
||||
end for
|
||||
Loading…
Add table
Add a link
Reference in a new issue