dec 192018
 

Hoe bereken je de Grootste Gemene Deler (GGD) in Forth?

Dat doe je zo:

: ggd ( a b -- ggd )
begin
dup
while
swap over mod
repeat
drop
;

Zet nu twee getallen op de stack en laat ggd het werk doen. 

Na afloop staat de GGD op de stack.

_______________ »  Download deze post als een e-book

 Leave a Reply

You may use these HTML tags and attributes: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong>

(required)

(required)

Deze website gebruikt Akismet om spam te verminderen. Bekijk hoe je reactie-gegevens worden verwerkt.