; 1. Möglichkeit, greift auf geometrischefolge.lg zurück
to geometrischepartialsumme :a :q :n
  ifelse (:n > 1) [
     output (geometrischefolge :a :q :n) + (geometrischepartialsumme :a :q (:n-1))
  ] [
     output geometrischefolge :a :q :n
  ]
end

; 2. Möglichkeit
to geometrischepartialsumme :a :q :n
  make "w 0
  repeat (:n-1) [make "w (:q*(1+:w))]
  output (1+:w) * :a
end