DiKoTestLogo

Aus ProgrammingWiki

Archivierte Version vom 2021-01-19T19:45:14+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