DiKoTestLogo

Aus ProgrammingWiki

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

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

print fibolist 20

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

print primlist 100

DiKoTestLogo

Suche