https://mojopuzzler.org/mediawiki/index.php?action=history&feed=atom&title=Greatest_Common_Divisor 2026-05-06T01:45:22Z Revision history for this page on the wiki MediaWiki 1.40.1 https://mojopuzzler.org/mediawiki/index.php?title=Greatest_Common_Divisor&diff=2262&oldid=prev 2023-11-17T15:53:14Z

<p>Created page with &quot;===== Return to: <a href="/mediawiki/index.php/Chialisp" title="Chialisp">Chialisp</a> ===== ===== Return to: <a href="/mediawiki/index.php/Recursive_Functions" title="Recursive Functions">Recursive Functions</a> ===== (mod (num1 num2) (defun remainder (x y) (r (divmod x y))) (defun gcd (num1 num2) (if (= num2 0) num1 (gcd num2 (remainder num1 num2)))) (gcd num1 num2) ) ==Example Usage== brun &#039;(a (q 2 4 (c 2 (c 5 (c 11 ())))) (c (q (a (i (= 11 ()) (q . 5) (q 2 4 (c 2 (c 11 (c (a 6 (c 2 (c 5 (c 11 ())))) ()))))) 1) 6 (divmod 5 11)) 1))&#039; &#039;(99...&quot;</p> <p><b>New page</b></p><div>===== Return to: [[Chialisp|Chialisp]] ===== <br /> ===== Return to: [[Recursive Functions]] =====<br /> <br /> (mod (num1 num2)<br /> (defun remainder (x y)<br /> (r (divmod x y)))<br /> (defun gcd (num1 num2)<br /> (if (= num2 0)<br /> num1<br /> (gcd num2 (remainder num1 num2))))<br /> (gcd num1 num2)<br /> )<br /> <br /> ==Example Usage==<br /> brun '(a (q 2 4 (c 2 (c 5 (c 11 ())))) (c (q (a (i (= 11 ()) (q . 5) (q 2 4 (c 2 (c 11 (c (a 6 (c 2 (c 5 (c 11 ())))) ()))))) 1) 6 (divmod 5 11)) 1))' '(99 33)'<br /> <br /> 33<br /> <br /> brun '(a (q 2 4 (c 2 (c 5 (c 11 ())))) (c (q (a (i (= 11 ()) (q . 5) (q 2 4 (c 2 (c 11 (c (a 6 (c 2 (c 5 (c 11 ())))) ()))))) 1) 6 (divmod 5 11)) 1))' '(206 40)'<br /> <br /> 2</div>

Gneale