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>