図解よい　こうか (defun yukuri (x y) (if (= y 0) x (yukuri y (mod x y)))) (defvar *a* 252) (defvar *b* 105) (format t "~a~%" (yukuri *a* *b*))

kiyo_hiko のブックマーク 2012/05/30 23:14

<blockquote class="hatena-bookmark-comment"><a class="comment-info" href="https://b.hatena.ne.jp/entry/1133956/comment/kiyo_hiko" data-user-id="kiyo_hiko" data-entry-url="https://b.hatena.ne.jp/entry/s/ja.wikipedia.org/wiki/%E3%83%A6%E3%83%BC%E3%82%AF%E3%83%AA%E3%83%83%E3%83%89%E3%81%AE%E4%BA%92%E9%99%A4%E6%B3%95" data-original-href="https://ja.wikipedia.org/wiki/%E3%83%A6%E3%83%BC%E3%82%AF%E3%83%AA%E3%83%83%E3%83%89%E3%81%AE%E4%BA%92%E9%99%A4%E6%B3%95" data-entry-favicon="https://cdn-ak2.favicon.st-hatena.com/64?url=https%3A%2F%2Fja.wikipedia.org%2Fwiki%2F%25E3%2583%25A6%25E3%2583%25BC%25E3%2582%25AF%25E3%2583%25AA%25E3%2583%2583%25E3%2583%2589%25E3%2581%25AE%25E4%25BA%2592%25E9%2599%25A4%25E6%25B3%2595" data-user-icon="/users/kiyo_hiko/profile.png">ユークリッドの互除法 - Wikipedia</a><ul class="comment-tag" style="list-style: none; margin: 0px;"><li style="float: left">[<a href="https://b.hatena.ne.jp/q/memo">memo</a>]</li><li style="float: left">[<a href="https://b.hatena.ne.jp/q/modulo">modulo</a>]</li><li style="float: left">[<a href="https://b.hatena.ne.jp/q/math">math</a>]</li><li style="float: left">[<a href="https://b.hatena.ne.jp/q/algorithm">algorithm</a>]</li></ul><br><p style="clear: left">図解よい　こうか (defun yukuri (x y) (if (= y 0) x (yukuri y (mod x y)))) (defvar *a* 252) (defvar *b* 105) (format t &quot;~a~%&quot; (yukuri *a* *b*))</p><a class="datetime" href="https://b.hatena.ne.jp/kiyo_hiko/20120530#bookmark-1133956"><span class="datetime-body">2012/05/30 23:14</span></a></blockquote><script src="https://b.st-hatena.com/js/comment-widget.js" charset="utf-8" async></script>

このブックマークにはスターがありません。
最初のスターをつけてみよう！