DiKoTestLogo

Aus ProgrammingWiki

Archivierte Version vom 2021-01-19T20:23:36+00:00. Aktuelle Version

to produkt_1 :a :b
 ifelse :b = 0 [op 0] [op :a + produkt_1 :a :b - 1]
end

print produkt_1 11 12

to fak :n
 ifelse :n = 0 [op 1] [op :n * fak :n - 1]
end

print fak 10

to fibo :n
 ifelse :n = 1 [op 1] [ifelse :n = 2 [op 1] [op ((fibo :n - 1) + (fibo :n - 2))]]    
end

to fibolist :n
 ifelse :n = 0 [op []] [op fput fibo :n fibolist :n - 1]
end

print fibolist 20

DiKoTestLogo

Suche