Paproć

Siemka ponownie! :)

Nie mogłam się doczekać napisania nowego wpisu. Więc tak, przedstawiam procedurę tworzącą paproć za pomocą rekurencji.
Do wpisania np. paproć 400 lub paproć 500 i inne.

oto paprotka :a
 ukp 2 
 jeśli :a < 1 [np :a ws :a stop] 
 np :a * 0.1 lw 40 
 paprotka :a * 0.2 pw 80 
 paprotka :a * 0.2 lw 40 
 pw 2 paprotka :a * 0.9 lw 2 
 ws :a * 0.1 
 ukp 0 
już

oto paproć :a
 pod ws 230 opu
 paprotka :a
już



Myślę, że pomogłam.
Pytania proszę pisać w komentarzach, ponieważ nie dodałam tej funkcji w blogu. No bo dopiero to mój pierwszy dzień - nie wszystko na raz. :D

Idę. Papatki.