DiKoTestLogo

Wiki-Quelltext dieser Seite.

<language>Logo</language>
<code id="6006c0ff595dd">
to produkt_1 :a :b
 ifelse :b = 0 [op 0] [op :a + produkt_1 :a :b - 1]
end
</code>

<run id="6007324c9458d">
print produkt_1 11 12
</run>

<code id="600736c881230">
to fak :n
 ifelse :n = 0 [op 1] [op :n * fak :n - 1]
end
</code>

<run id="600736c8812a9">
print fak 10
</run>

<code id="60073fc7cd499">
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
</code>

<run id="60073fc7cd50f">
print fibolist 20
</run>