DiKoTestLogo

Wiki-Quelltext dieser Seite.

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

<run id="60074454e7714">
print produkt_1 11 12
</run>

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

<run id="60074454e777e">
print fak 10
</run>

<code id="60074454e75ec">
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="60074454e77e1">
print fibolist 20
</run>

<code id="60074454e7662">
to primtest :m :n
 ifelse :n = 1 
  [op "true] 
  [ifelse (remainder :m :n) = 0 
   [op "false]
   [op primtest :m :n - 1]]
end

to prim :n
 ifelse :n = 1
  [op "false]
  [op primtest :n :n - 1]
end

to primlist :n
 ifelse :n = 0
  [op []] 
  [ifelse (prim :n) = "true 
   [op fput :n primlist :n - 1] 
   [op primlist :n - 1]]
end
</code>

<run id="60074454e783d">
print primlist 100
</run>