Qiita初投稿
いまさらながらQiitaの世界に飛び込みました
大阪市内で地図技術関係のいろいろしている髙橋ともうします。
数学パズルも好きなのでそちらの投稿もしていければと考えています。
マークダウンに慣れるまでは普通に打ち込みますので、見づらいのはご容赦ください。
Mathematicaで小町算
Mathematicaで小町算プログラムを書いてみました。
１～９の８個のギャップに、加減乗除と前後の数字をつなげるという５番目の演算子を考えて、５進数を５つの演算子に対応させて、５^8回、全探索させるというものです。以下に2020となる小町算を乗せます。
Do[
expr = StringJoin@Transpose[
{{"", "-", "+", "*", "/"}[[# + 1]] &/@
IntegerDigits[n, 5, 9], ToString /@ Range[9]}];
If[ToExpression[expr] == 2020, Print[expr]],
{n, 5^^00000000, 5^^44444444}]
これで
12/3+45678/9
という解が一種類見つかりました。ちなみに2021や2025(大阪万博の年)の解は二種類見つかりました。