16 lines
371 B
Text
16 lines
371 B
Text
link factors
|
|
|
|
procedure main(A)
|
|
/A := [20,3,"Fizz",5,"Buzz",7,"Baxx"]
|
|
mtable := table()
|
|
limit := get(A)
|
|
while *A > 0 do mtable[integer(get(A))] := get(A)
|
|
mlist := sort([: key(mtable) :])
|
|
|
|
every i := 1 to limit do write((""~== fizzbuzz(i,mlist,mtable))|i)
|
|
end
|
|
|
|
procedure fizzbuzz(n,a,t)
|
|
every (s := "", n%(f := !a) = 0) do s ||:= t[f]
|
|
return s
|
|
end
|