mzp https://blog.hatena.ne.jp/mzp/ みずぴー日記 https://mzp.hatenadiary.org/ Scheme 30分プログラム 30分プログラム、その780。 最小公倍数を求めてみました。 使い方 gosh> (lcm 3 2) 6 gosh> (lcm 21 6) 42 ソースコード #! /opt/local/bin/gosh ;; -*- mode:scheme; coding:utf-8 -*- (define (gcd x y) (if (= y 0) x (gcd y (modulo x y)))) (define (lcm x y) (/ (abs (* x y)) (gcd x y))) 参考 過去の30分プログラム Least common multiple - Wikipedia 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fmzp.hatenadiary.org%2Fentry%2F20100706%2Flcm" title="最小公倍数 - みずぴー日記" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2010-07-06 00:00:00 rich https://mzp.hatenadiary.org/entry/20100706/lcm 1.0 100%