ことよ　ことよろー。

あけお　そんなわけで、ぼくが新年あけお。

ことよ　そして、わたしはあけおの嫁のことよちゃんです。ウサギ年生まれの12歳です、びょん。

あけお　そうそう、ことよちゃんは今年、年女ですねー。

ことよ　あけおさん、あけおさん。

あけお　はいはい、何ですか。ことよちゃん。

ことよ　あなた、また突っ込み忘れてますよ。

あけお　ああっ、しまった。そうでしたか。

ことよ　もう、しっかりしてくださいよ。

あけお　ごめん、ごめん。すぐに突っ込みますから、ちょっと待っててくださいね。

あけお　いくら何でも、12歳はないでしょう、ことよちゃん。

ことよ　遅いですっ。

ことよ　こう見えてもわたし、本当は24歳なんです。

あけお　そうそう、ぼくと同い年なんですよ。

ことよ　わたしがウサギ年で。あけおさんがタヌキ年。

あけお　同級生なんですけど、僕の方が早生まれで、干支が違うんですよ。

あけお　おいおい。来年は、タヌキ年じゃないよ。

ことよ　遅すぎますっ。

あけお　遅いといえば、あのカメっていうやつは足がのろいですね。

ことよ　どうしてそんなにのろいのかー、ぴょん。

あけお　あーっ、ことよちゃん、どうしたのその頭。長ーい耳が生えてるよ。

ことよ　今ごろ気付いたの、あけおさん。最初っから、ずっとつけてたでしよ。これはウサギさんの耳です、ぴょん。

あけお　ウサギさん、ウサギさん、どうしてそんなにお耳が大きいの。

ことよ　それはね、赤頭巾ちゃんの声がよく聞こえるようにだよ。

あけお　さてはこいつ、オオカミだな。よーし、こうなったら頭に葉っぱを乗せて猟師に化けて鉄砲でズドーン。

ことよ　うわっ、こういうときだけめちゃめちゃ早いわ、このひと。

ことよ　タヌキのやつめ、覚えてろよー。

あけお　そんなわけでウサギは、タヌキに仕返しをしようとたくらみました。

ことよ　よいしょ。よいしょ。あー疲れた。

あけお　どうしたんですか、ウサギさん。

ことよ　リュックが重くて、もう歩けません。

あけお　あーっ、ことよちゃん、どうしたのその目。真っ赤になってるよ。

ことよ　大晦日からずっとテレビを見てたから寝不足で、じゃなくて、これはカラーコンタクト入れてるの。

あけお　なんだそうだったのか。

ことよ　なんで今まで気づいてくれなかったの、あけおさん、話すときには、ちゃんとわたしの目を見て。

あけお　ごめん、ことよちゃん…。

ことよ　そんなことよりタヌキさん、この荷物を運ぶの、手伝ってください。

あけお　こりゃあ、ずいぶん大きな荷物ですね。どっこいしょと。予想以上に重いぞ、これは。

ことよ　大丈夫ですか、タヌキさん。

あけお　なあに、これくらいへっちゃらです。どこまで運べばいいんですか。

ことよ　この山の麓にあるブックオフまで。

あけお　こんなにたくさん本を持ってるなんて、

ことよ　カチカチ。（と、チャッカマンで火を付けようとする）

あけお　ウサギさんは読書家なんですね。

ことよ　カチカチ。

あけお　あれっ。さっきから背中の方から「カチカチ」って音が聞こえるけど。何だろう。

ことよ　タヌキさん、それはカチカチ山のカチカチ鳥の鳴き声ですよ。

あけお　おいおい、このへんにそんな山はないし、そんな鳥もいませんよ、ウサギさん。

ことよ　あのー、そこには突っ込まないでください、あけおさん。

あけお　ごめん、ごめん。また突っ込むところを間違ってしまいました。

ことよ　もう、しっかりしてくださいよ、あけおさん。

あけお　はい。次はもう間違いません。

あけお　なんだ、そうでしたか。

ことよ　カチカチ。

あけお　カチカチ山のカチカチ鳥だから「カチカチ」と鳴くんですね。

ことよ　そうですよ、タヌキさん。よーし、火がついたわ。

あけお　おや、何だか背中が熱くなってきたぞ。

ことよ　そうですか。

あけお　それに、何だか背中の方から今度は「ボーボー」という音が聞こえてきたぞ。

ことよ　それはきっと、ボーボー山のボーボー鳥の鳴き声ですよ。

あけお　なんだ、そうでしたか。ボーボー山のボーボー鳥だから「ボーボー」と。熱い。熱いっ。あちちちちちち。（と、リュックを投げ捨てる）

ことよ　大丈夫ですか、タヌキさん。

あけお　あーっ、ことよちゃん、どうしたの、その服。なんで網タイツなんかはいてるの。

ことよ　今ごろ気づいたの、あけおさん。

あけお　ごめん、ごめん。

ことよ　どう、色っぽいでしょう。

あけお　わかった、わかった。すぐに突っ込みますから。ちょっと待っててくださいね。

ことよ　今はだめ。あ・と・で。

あけお　むふふふふふー。

ことよ　うふふふふふー。

　二人、無言のまま深々と御辞儀をした後、いちゃつきながら退場。

　寒い寒い大晦日の夜のことです。一人の少女が街角でマンガを売っていました。

　はい。よくよめましたね。かんじとかかたかなのところも、ちゃんとよめたのはえらいです。みなさんも、かずしげさんのように、しっかりよしゅうしてくださいね。

　いきなり、むずかしいことばがたくさんでてきました。「おおみそか」というのはいちねんのいちばんおわりのいちにちのことです。「しょうじょ」というのは、えっちとかへんたいとかいうことをしたりされたりてはいけないひとのことです。「えっち」とか「へんたい」とかいうことばは、このまえべんきょうしましたから、みなさんおぼえていますよね。そうです。みなさんがしてはいけないし、かんがえたりしてもいけないことです。むかしはそういういけないことをかいたほんがたくさんありました。そうです「まんが」ですね。だから、このしょうじょはいけないものをうっているいけないひとなのです。

　では、かずしげさん、つづきをよんでください。

「誰かマンガを買ってください。わたしが描いたマンガです」

　少女の声を耳にした人々は、みんな目をそらして足早に通り過ぎて行きます。

　このしょうじょは、まんがをうってるだけではなくて、じぶんでかいているので、とってもいけないひとですね。もちろん、まちのひとたちが、そんなとってもいけないしょうじょがうっているいけないまんがなんか、かうはずはありません。いいきみです。

　突然、冷たい北風が襲いかかって、少女の描いたマンガの本を全部吹き飛ばしてしまいました。

「あああっ、わたしのマンガがーっ」

　叫び声に驚いて、街の人々は少女の方に目を向けましたが、スカートの裾が捲れ上がっていたので、あわてて目を背けました。

　はいはいはいはい、みなさん、しずかにしてください。しずかにっ。そうです、そうです。「ぱんちら」は、ぜったいにいけませんね。でも、とってもいけないことをしているしょうじょの「ぱんちら」ですから、ざまあみろですね。

　はいはいはいはい、みなさん、しずかにしてください。しずかにっ。そうです、わかってます。「ざまあみろ」はいけないことばでした。せんせいはついうっかりくちをすべらせてしまいました。いけないせんせいでした。でも、「ぱんちら」をみなかったまちのひとたちはえらかったですね。みなさんも「ぱんちら」は、ぜったいにみてはいけませんよ。

　少女は、冷たい舗道のうえにぺったりと座って、しくしく泣きはじめました。

「なぜ泣いているのかね」

　少女が顔を上げると、目の前に、外套を着た怪しいおじさんが立っていました。

　はい、またちょっとむずかしいことばがでてきましたね。「がいとう」というのは、えっちなことをするへんたいがきているふくのことです。つまり「がいとうをきたあやしいおじさん」はへんたいですから、こんなへんたいをみかけたら、みなさんはすぐににげてください。

　そう。そのとおりです。このままでは、しょうじょはへんたいにえっちなことをされてしまいます。そんなことになったらたいへんです。さあ、みなさん、おおきなこえでおうえんしましょう。せーの、「しょうじょ、にげてー」

「そんなところに座っていたら風邪をひくよ」

　怪しいおじさんは外套を脱いで、少女に着せてあげました。

「あっ」

　少女はびっくりしました。怪しいおじさんは外套の下には何も着ていなかったのです。少女は気を失ってしまいました。

　ほーら、やっぱりへんたいでしたね。きをうしなったりしたら、ますますたいへんなことになってしまいます。みなさん、しょうじょのめをさましてあげましょう。せーの、「めをさましてー」「はやく、にげてー」

　少女が目を覚ますと、そこは自分の部屋でした。どうやらマンガを描いているうちに眠ってしまったようです。

　あっ、なんということでしょう。これはぜったいにやってはいけない「ゆめおち」というやつです。さあ、みなさん、さくしゃをばとうしましょう。せーの、「ゆめおち、さいてー」「さくしゃ、さいてー」「さくしゃ、しねー」

　少女はマンガの下描きを眺めて、溜め息をつきました。裸の男の子が抱き合ったりしている絵のところどころが白紙のままになっています。

「やっぱり実物を見なきゃ、描けないよ」

　少女は外套を着ると、夜の街へと出かけていきました。

　はい、かずしげさん。よむのをやめてください。このおはなしはもうよむひつようはありません。このとってもいけないしょうじょは「びーえる」という、えっちでへんたいなまんがをかいていることがわかりました。おまけに「がいとう」をきましたからへんたいです。さあ、みなさん、こんなひどいおはなしをかいたさくしゃをばとうしましょう。せーの、「びーえる、だめー」「さくしゃ、しねー」「さくしゃ、へんたーい」「へんたい、しねー」

　外套を着た少女が街角に立っていると、外套を着た怪しいおじさんがやってきました。

「どうしたんだい」

「どうしてもマンガが描けないんです」

「なんだ、そんなことか。実は僕もパロディが書けずに困っていたところなんだ」

　そう言うと、怪しいおじさんは外套を脱ぎすて、素早く少女の外套も脱がせました。全裸になった二人は抱き合いながら夜の街をさまよい歩きました。

　もういいです。もういいといってるでしょ。よむのをやめなさいっ。こらっ。まてっ。このうすらばかっ。どへんたいのきちがいめっ。「かずしげ、うすらばかー」「かずしげ、どへんたーい」「かずしげ、きちがーい」「どへんたいのきちがーい」「きちがい、にげてー」「うすらばか、にげてー」「きちがい、めをさませー」「ゆめおち、さいてー」「さくしゃ、ばかー」「うすらへんたい、しねー」

　向きの変化には回転数だけでなく回転順も影響することが分かったところで、それをどうやって“向きを表わす変数”に反映させればいいのかが分からない。

　仕方がないので、島内本に掲載されている手順のいくつかをマクロに書いて試してみたりもしたが、うまい解決策を思い付くこともなく、ただ本に書いてあることを追認するだけの単調な作業になってしまった。ただ、見た目は同じ結果になる複数の異なる手順を実行したときに、(i, j, k)の値に違いが出るのは、手順が違えば回転する軸も異なるのだから当然といえば当然なのだが、これはこれで面白い。とはいえ、実際のキューブを見ても、崩したときの手順の違いが分かるわけではないのが残念だ。
　読みかけだった「ルービック・キューブによる群論入門」に、正六面体（立方体）の向きのバリエーションは24パターンあるとかいうことが書いてあったのを思い出して、もう一度読んでみた。頂点の位置が8通りで、その頂点を含む辺の向きが3通りだから、8×3＝24だということで、いたってシンプルだ。それならばと、小体のある頂点の位置を(i, j, k)として、その頂点を含む辺の向きを表わす変数をもう一つ加えて(i, j, k, l)にしてみた。
　その結果、確かに小体の向きを正しく反映するようになったけれども、二面体は頂点の位置の変化、三面体は一辺の向きの変化になってしまうのが面倒だ。もっと簡単に分かるようにできないものだろうか…。

　正八面体の向きは正六面体と同じ24通りになるという説明を読み、正六面体に内接する正八面体の図を眺めていて、なるほど、正八面体の頂点は正六面体の各面の中心とぴったり一致しているので、8個の頂点×3本の辺と、6個の頂点×4本の辺は同じになるんだな、と納得した。

　「だったら、正八面体で考えてもいいんじゃないか？」

　――いつの間にやら店主のフリーズが解除されたようだ。

　「おおっ、この線を見てみろよ。ほら、この、正八面体の辺だよ。これは立方体の面の移動方向と同じじゃないか！」

　――何を言ってるんだ。立方体の各面の中心をつなぐ線だから、当然そうなるだろう。

　「だから、ここだよ。正三角形だよ。この正三角形がキューブの向きがズレる原因だったんだ」

　――まあ、確かにそうだね。面の中心を繋いだ線が正方形になるのは、一つの軸で一回転した場合だからね。それで？

　「その場合は向きは保存されるけれども、二つ以上の軸にまたがって回転した場合は向きは保存されない。つまり、一つの正方形の軌道から別の正方形の軌道への乗り換えると、そこで向きが変わるということだ」

　――それが分かっても、どういうデータにすればいいのか…？

　「X軸→Y軸、Y軸→Z軸、Z軸→X軸の乗り換えを+1、その逆を-1として…」

　――ちょっと待てよ。立方体の向きの変化を考えてるんだから、3つの軸(x, y, z)が移動後にどこに行ったかを調べればいいかもしれないぞ。うん、それだ。

　X軸で1ひねりするとY軸とZ軸が入れ代って(x, z, y)、次にY軸で1ひねりするとX軸とZ軸が入れ代わって(y, z, x)、さらにZ軸で1ひねりすると(z, y, x)となる。これは、3個の順列だから6通りにしかならない。元の状態(x, y, z)になっても位置が異なるパターンが4通りあるということだな。だけど、それだけで充分だったんだ。元の位置に戻ったときの向きに注目してるんだから。

　「つまり、どういうこと？」

　――つまり、(x, y, z)、(x, z, y)、(z, y, x)、(y, x, z)、(z, x, y)、(y, z, x)という6通りのパターンの置換にするってことだよ。

　「なんだか分かりにくいな」

　――じゃ、正しい向きを(0, 0, 0)として、向きのズレを(0, 2, 1)、(1, 0, 2)、(1, 1, 1)、(2, 1, 0)、(2, 2, 2)で表わせばいいだろう。

　「(1, 1, 1)と(2, 2, 2)は3つの軸が全部ズレたパターンだな。でも、この1と2の違いは何だ？」

　――さっきの"+1"と"-1"の違いだよ。X→Y→Zを"+1"、Z→Y→Xを"-1"と考えて、マイナスが邪魔だったから"-1"を"+2"にしたんだ。

　「なるほど。分かってしまえばこんなに単純なことを、複雑に考えてしまっていたんだな。キューブの向きだけに、向きになって考えてしまったってオチでいいかな？」

　――そんなことを言っている店主を無視して、僕はさっそくスクリプトを書き直した。

　――できたよ。じゃ、この前と同じ島内本の【6a】を実行してみるぞ。

read from: 'macro\s06a.txt'
operators='+e+n+w+s+2t-s-w-n-e+2t'
(old dir:000000)->(new dir:000000),[ 1, 2, 3, 4, 5, 6, 7, 8, 9,10]
(xyz,ijk,setnwb)->(xyz,ijk,setnwb),[+e,+n,+w,+s,2t,-s,-w,-n,-e,2t]
(112,000,se----)->(121,021,s-e---),[+e,  ,  ,  ,2t,  ,-w,-n,  ,2t]
(121,000,s-t---)->(321,000,--ts--),[  ,  ,  ,+s,  ,-s,  ,  ,  ,2t]
(321,000,--tn--)->(112,021,nt----),[  ,+n,+w,  ,2t,  ,  ,  ,-e,  ]

    +---+
    | t |
    |   |
    | e |
+---+---+---+---+
|   | s |   | s |
|   |  n|t  |   |
|   |   |   |   |
+---+---+---+---+
    |   |
    |   |
    |   |
    +---+

　――で、この後に引き続き"+s"を追加すると、

operators='+s'
(old dir:000000)->(new dir:100000),[ 1]
(xyz,ijk,setnwb)->(xyz,ijk,setnwb),[+s]
(111,000,set---)->(113,021,st---e),[+s]
(121,021,s-e---)->(112,000,se----),[+s]
(113,000,se---b)->(133,021,s---be),[+s]
(123,000,s----b)->(132,021,s---b-),[+s]
(131,000,s-t-w-)->(111,021,stw---),[+s]
(132,000,s---w-)->(121,021,s-w---),[+s]
(133,000,s---wb)->(131,021,s-w-b-),[+s]
(112,021,nt----)->(123,000,n----t),[+s]

    +---+
    | t |
    |   |
    |www|
+---+---+---+---+
|  b|sss|t  | s |
|  b|s s|e  |   |
|  b|sns|t  |   |
+---+---+---+---+
    |ete|
    |   |
    |   |
    +---+

となる。二面体SEが元の位置に戻ったときに、今度はちゃんと向きが(0, 0, 0)になってるだろ？

　「確かにSEは正しい向きだけど、このNTの向きも(0, 0, 0)なってるのは変じゃないか？」

　――それは仕方ないな、実際は24通りあるのを簡略化して6通りにしたんだから。でも、軸が3つとも元と同じで位置だけが違っている場合は一目で分かるパターンだから問題ないだろう。

　「なるほど。反転した二面体が裏側に回ると(0, 0, 0,)になるわけだね」

　――またつまらない落ちを付けられないうちに、僕は素早くアップした。

　「そうか、キューブの中に入って考えればよかったんだ！」

　――いったい、どうしたんだ？

　「どうもこうも、キューブの中に鼠が入ってマッピングしてるんだよ！」

　――何を言ってるんだ、夢でも見たのか？

　「夢？　そうか、今のは夢だったのか…。夢中で考えていたから夢の中でも考え続けてたんだな。うん、これは論理的だ。ちゃんと筋が通っているぞ」

　――店主は、普通よりも一回り小さなルービックキューブの紛い物をいじっている。これは、著作権にうるさいことで有名な黒鼠の絵が入っている子供騙しのキャラクター商品で、キューブを回そうとするとバリがひっかかるという粗悪品なのだが、税込みで百五円という安値につられて、つい買ってしまったらしい。

　「そんな話はどうでもいいから、早くスクリプトを出してくれ！」

　――店主は、エディタでスクリプトを開くと、脳内のジャンクを打ち込み始めた。

　――しばらくすると、DOSプロンプトを開いた。島内本を見ながらコマンドを打ち込んでは、スクリプトを修正していった。

　「よーし。こんな感じで大体いいだろう…」

　――店主は、DOSプロンプトでコマンドを打ち込み、パソコンのディスプレイをこちらに向けた。

E:\PUZZLE\R_CUBE>jperl r_cube.pl -c=setnwb s06a | jperl rc_fig.pl
applied option: -c=setnwb
read from: 'macro\s06a.txt'
operators='+e+n+w+s+2t-s-w-n-e+2t'
(xyz,ijk,setnwb)->(xyz,ijk,setnwb)
(112,000,se----)->(121,120,s-e---)
(121,000,s-t---)->(321,002,--ts--)
(321,000,--tn--)->(112,000,nt----)
(old dir:000000)->(new dir:000000)

    +---+
    | t |
    |   |
    | e |
+---+---+---+---+
|   | s |   | s |
|   |  n|t  |   |
|   |   |   |   |
+---+---+---+---+
    |   |
    |   |
    |   |
    +---+

　「出来たぞ」

　――もしかすると、これは島内本に出ている「むすび」という手順かな？

　「その通り。何度も打ち込むのが面倒だったんで、"macro\s06a.txt"というファイルに、

+Y+O+G+R-W-R-G-O-Y+W

と書いておいて、"-c=setnwb"で記号の置換、"-m=macro"でマクロのディレクトリ、"s06a"でマクロ名を指定してるんだ」

　――それで、肝心の小キューブの向きの問題はどう処理したんだ？

　「小キューブの中の鼠にどの向きに回転したかを聞いたんだ」

　――まだ、よく飲み込めんのだけど…。

　「そうか。そうだよな…。この"(xyz,ijk,setnwb)"の次の行が"se"の二面体のデータだ。これが(x, y, z)=(1, 1, 2)から(x, y, z)=(1, 2, 1)に移動して、向きは(i, j, k)=(0, 0, 0)から(i, j, k)=(1, 2, 0)に変化してるだろ？」

　――それは分かるよ。その(i, j, k)=(1, 2, 0)が、どこから出てきたのかを知りたいんだ。

　「それは、色配置（"se----"の部分）を1手ずつ更新するときに、自分がどの面を軸にして回転したかを判定して、その面が最初に属していた面（つまりその面と同じ色のセンターキューブ）を軸にして回転したと見なして(i, j, k)のどれか一つを更新したんだ」

　――なるほど、小キューブの中の鼠の視点で考えたわけだね。だけど、(x, y, z)=(1, 1, 2)の位置にある小キューブをX軸で1回、Y軸で2回、右に90度回しても、(x, y, z)=(1, 2, 1)の位置には来ないんだけど、これはどういうことなのかな…？

　「さあ…。たぶんZ軸で180度回転を2回やってるせいだろうね」

　――じゃ、この(i, j, k)っていうのは何の役に立つんだ？

　「よく分からんけど、ある軸で一周した場合や、完全に逆の手順で元の位置に戻った場合には当然(0, 0, 0)になるんだから、位置が正しくても向きが(0, 0, 0)にならなかったら、その小キューブの向きが違っているってことじゃないかな…」

　――それは怪しいな。この後、"+s"という操作をすると、(1, 2, 1)の小キューブは元の(1, 1, 2)の位置に戻って向きも正しくなるけれども、(i, j, k)=(2, 2, 0)になるじゃないか」

operators='+s'
(xyz,ijk,setnwb)->(xyz,ijk,setnwb)
(111,222,set---)->(113,322,st---e)
(121,120,s-e---)->(112,220,se----)
(113,000,se---b)->(133,100,s---be)
(123,000,s----b)->(132,100,s---b-)
(131,002,s-t-w-)->(111,102,stw---)
(132,000,s---w-)->(121,100,s-w---)
(133,000,s---wb)->(131,100,s-w-b-)
(112,000,nt----)->(123,000,n----t)
(old dir:000000)->(new dir:100000)

　「あ、ほんとだ」

【訂正】

　バグのため小キューブの向き(i, j, k)のデータの一部が間違っていたので、訂正しました。また、マクロファイルのディレクトリ指定は煩雑になるので初期値に変更しました。（2008/10/20）

　「じゃ、展開図の部分は、僕がやっとくよ。この表示データから変換するだけでいいんだろ」
　そう言って、店主は前回の囲み部分をコピーしようとした。

　――ちょっと待った。向きのデータを追加するから、こっちの方を使ってくれよ。

(111,000,RYW---)->(111,???,WRY---)
(112,000,RY----)->(112,000,RY----)
(113,000,RY---B)->(113,???,BR---Y)
(121,000,R-W---)->(121,000,R-W---)
(122,000,R-----)->(122,000,R-----)
(123,000,R----B)->(123,000,R----B)
(131,000,R-W-G-)->(131,000,R-W-G-)
(132,000,R---G-)->(132,000,R---G-)
(133,000,R---GB)->(133,000,R---GB)
(211,000,-YW---)->(211,000,-YW---)
(212,000,-Y----)->(212,000,-Y----)
(213,000,-Y---B)->(213,000,-Y---B)
(221,000,--W---)->(221,000,--W---)
(222,000,------)->(222,000,------)
(223,000,-----B)->(223,000,-----B)
(231,000,--W-G-)->(231,000,--W-G-)
(232,000,----G-)->(232,000,----G-)
(233,000,----GB)->(233,000,----GB)
(311,000,-YWO--)->(311,000,-YWO--)
(312,000,-Y-O--)->(312,000,-Y-O--)
(313,000,-Y-O-B)->(313,000,-Y-O-B)
(321,000,--WO--)->(321,000,--WO--)
(322,000,---O--)->(322,000,---O--)
(323,000,---O-B)->(323,000,---O-B)
(331,000,--WOG-)->(331,000,--WOG-)
(332,000,---OG-)->(332,000,---OG-)
(333,000,---OGB)->(333,000,---OGB)

　――やりやすいように、全部表示させたから。あと、「???」のところは'0'～'3'が入る筈なんだけど、実際の数値がまだ分からないんで…。

　「おおっ、これは有り難い！　あれっ？　向きのデータは3桁でいいの？　6桁になるかと思ってたんだけど」

　――なぜ6桁も必要なんだ？　X・Y・Z軸で回転するんだから(i, j, k)の3個で充分だろう。

　「いや、小キューブがどの面でどれだけ回転したのかを表示すれば簡単になるかと思ったから」

　――いやいや、そのやり方では小キューブの向きとは一致しなくなることが分かったから、今、どうしようかと考えてるんじゃないか。

　「あっ、そうか。今ちょっと別のことを考えてたから。小キューブが、どこの面でどれだけ回転したかが分かれば役に立つかなって…」

　――それは面白いな。小キューブの履歴を保存するわけだな。状態とは別のデータでやってみよう。とりあえず、状態の表示はさっきの3桁でやるから、それで進めておいてくれよ。

　「了解」

　――店主は、上の引用部分をマウスで選択して、そのまま自分のノートパソコンまでドラッグしていって、エディタの中にドロップした。一体どうなってるんだ、この世界は？

　すると、店主がこちらを向いてこう言った。
　「ひねりだって…？　そうそう、キューブの向きのことをまだ考えてなかったな」

　――ここに書いたことがそのまま聞こえているのか？　一体どうなっているんだ？

　「今さら何を言ってるんだ。そんなところに突っ立ってないで、あんたも少し手伝ってくれよ」

　――それじゃ仕方がないな。

　「この“ひねり”をどうするかが問題なんだよな…」

　――それは小キューブのデータの中に入れてしまえばいいんじゃないか？

　「ははあ、小キューブをカプセル化して、あとはオブジェクトに任せるというわけか」

　――何もそこまでやらなくても、perl4で十分だよ。適当な連想配列に位置と一緒に入れるだけだよ。これを仮に%cubesとして、例えば、最初に図7の(1, 1, 1)の位置にあった小キューブに関する位置と向きのデータが欲しければ、$cubes{'1,1,1'}を見るって感じで…。ここに、現在位置(x, y, z)と回転状態(i, j, k)を一緒に入れておけばいいだろう。

　「コーナーキューブの向きは3通りだから(i, j, k)でいいと思うけど、エッジキューブの向きは2通りだけだよね。それに、いつ、どの段階で小キューブの向きがズレたり反転したりするのかと考えると、よく分からなくなるんだけど…」

　――それは、キューブの色が揃っていると、ズレたり反転したりしてるようには見えにくいけど、操作する毎にX・Y・Zのどれか一つを軸にして回ってるんだから、その段階で向きが変化してると考えた方がいい。その回転状態を(i, j, k)で表わすと、X軸を中心に90度右に回転すると(1, 0, 0)になり、続けてY軸を中心に左に90度回転すると(1, 3, 0)となる。これは、コーナーもエッジもセンターも区別せず、全部同じでいい。

　「ちょっと待ってくれよ。なぜ同じなんだ？」

　――9個の小キューブが一緒に回転してるんだから同じでなきゃ変じゃないか？

　「そう言われると、そんな気もしてくるけど、何だかどうもうまく騙されてるような気がするな…」

　――じゃあ、こう考えてみたらどうかな。例えば、一連の操作をした結果、(1, 3, 1)にあった小キューブが(1, 1, 3)に移動したとしようか。その小キューブの向きの情報(i, j. k)を見れば、どの軸の回転で移動したのかが分かる。(2, 0, 0)だったらX軸で180度、(1, 3, 0)だったらX軸で90度とY軸で-90度の組み合わせ、(0, 3, 3)だったらY軸で-90度とZ軸で-90度の組み合わせだということが分かる。

　「コーナーキューブはそれでいいだろうけど、エッジキューブの場合はどうなるんだ？」

　――同じように何回か操作をしたら、(1, 2, 1)にあった小キューブが(1, 1, 2)に移動した場合について考えてみようか。向きが(1, 0, 0)だったらX軸で90度、(0, 3, 3)だったらY軸で-90度とZ軸で-90度の組み合わせ、(3, 2, 2)だったらX軸で-90度とY軸で180度とZ軸で180度の組み合わせだということになる。

　もちろん、もっと複雑な操作をした場合は、そう単純には言えないだろうけれども…。

　「いや、僕は解法をプログラムで探索したいわけじゃなくて、シミュレーションできればそれでいいんだ」

　――そうか、それは残念だな。まあ、位置と向きの情報さえあれば、一連の操作の結果、どこが何色になるかぐらいは簡単に表示できると思うよ。出力の書式はリストよりも、やっぱり展開図みたいなやつの方がいいのかな？

　「そりゃあ、もちろん、現物の形に近い方がありがたいよ」

　――展開図を見て、“こう操作したら、こうなった”というのを見るわけだよね？　現物を使ってやるのと同じように？

　「そうだよ。現物は元に戻すのに時間がかかるし、結果を記録するのも面倒だから」

　――じゃあ、最後の展開図の前に、途中経過のデータも出力するようにしておこうか？

　「そうだなあ…。途中は省いて、最後のデータだけ出してくれればいいや」

　――ここで、僕はperlスクリプトを書いてみた。展開図の表示は面倒なので後回しにして、とりあえず操作前後で変化した各キューブのデータだけを出力するようにした。ちょっと試してみたところ、位置に関しては期待した通りの結果が出た。しかしどうも向きのデータが怪しい。

　そこで、二つのコーナーキューブの向きだけが変化する例の84手の操作パターンを入れてみた。すると、どういうわけか、二つのキューブの向きを表わす(i, j, k)の値が両方とも(2, 2, 0)になってしまう。向きが逆向きにずれるのだから、二つの向きは違っていなければならない筈だ。

　それで初めて気付いたのだが、X軸で90度回転した小キューブをY軸で-90度回転するのだから、元の向きで考えるとZ軸で-90度回転することになるのだった。つまり、(1, 3, 0)ではなくて(1, 0, 3)にしなくてはならなかったのだ。これはややこしいことになってしまった。

　結局、向きの情報を(i, j, k)で表わすのはあきらめて、小キューブの6面の色を6個の記号で表わすことにした。そして、回転操作をする度に小キューブの各面の移動を6個の記号の移動に対応させるようにした。これでたぶん大丈夫だろう。その結果は以下の通りだ。

operators='1R,3Y,1R,3Y,1R,3Y,1R,3Y,1R,3Y,1R,3Y,1R,3Y'
(111,RYW---)->(313,-Y-R-W)
(113,RY---B)->(133,B---YR)
(131,R-W-G-)->(113,RG---W)
(133,R---GB)->(131,G-B-R-)
(311,-YWO--)->(111,OWY---)
(313,-Y-O-B)->(311,-OBY--)
operators='1R,3Y,1R,3Y,1R,3Y,1R,3Y,1R,3Y,1R,3Y,1R,3Y'
(313,-Y-R-W)->(311,-RWY--)
(133,B---YR)->(131,Y-R-B-)
(113,RG---W)->(133,W---GR)
(131,G-B-R-)->(113,GR---B)
(111,OWY---)->(313,-W-O-Y)
(311,-OBY--)->(111,YBO---)
operators='1R,3Y,1R,3Y,1R,3Y,1R,3Y,1R,3Y,1R,3Y,1R,3Y'
(311,-RWY--)->(111,YWR---)
(131,Y-R-B-)->(113,YB---R)
(133,W---GR)->(131,G-R-W-)
(113,GR---B)->(133,B---RG)
(313,-W-O-Y)->(311,-OYW--)
(111,YBO---)->(313,-B-Y-O)
operators='3R,1Y,3R,1Y,3R,1Y,3R,1Y,3R,1Y,3R,1Y,3R,1Y'
(111,YWR---)->(131,R-Y-W-)
(113,YB---R)->(311,-BRY--)
(131,G-R-W-)->(133,W---GR)
(133,B---RG)->(111,BRG---)
(311,-OYW--)->(313,-W-O-Y)
(313,-B-Y-O)->(113,YO---B)
operators='3R,1Y,3R,1Y,3R,1Y,3R,1Y,3R,1Y,3R,1Y,3R,1Y'
(131,R-Y-W-)->(133,W---RY)
(311,-BRY--)->(313,-Y-B-R)
(133,W---GR)->(111,WGR---)
(111,BRG---)->(131,G-B-R-)
(313,-W-O-Y)->(113,OY---W)
(113,YO---B)->(311,-OBY--)
operators='3R,1Y,3R,1Y,3R,1Y,3R,1Y,3R,1Y,3R,1Y,3R,1Y'
(133,W---RY)->(111,WRY---)
(313,-Y-B-R)->(113,BR---Y)
(111,WGR---)->(131,R-W-G-)
(131,G-B-R-)->(133,R---GB)
(113,OY---W)->(311,-YWO--)
(311,-OBY--)->(313,-Y-O-B)

　エッジキューブの位置と向きが正しくなる7周期ずつに区切って操作記号を与えたので、変化を受けるコーナーキューブだけが表示されている。最終的な結果は(1,1,1)と(1,1,3)のキューブ以外は最初の状態に戻っているので、今度は間違いないだろう。

　これを見て、店主が言った。
　「位置はこれでも分かるけど、色のところがさっぱり分からんな…。やっぱり展開図の方がいいや。まだできてないの？」

　――それは、もう少し待ってくれよ…。

　展開図を回転して「r3」が「r1」に変化するなんていうのは、どうもピンとこないよな。それに「r3」が「y1」や「w9」と頂点を共有しているというのをいちいち展開図で確認しなくてはならないのも面倒くさいし、この番号の付け方が面の向きによってバラバラになってしまうも気に入らない。このままで、キューブの動きをシミュレートするプログラムを作ろうとすると、どの面とどの面がつながっているのかを書かなきゃならないだろう。

　これを何とかすっきり書けるようにしたいものだ。だけど、「群論」なんていう難しいことを考えたくはない。別に数学の論文を書こうとしているわけでもないし、最短の手順を探索するプログラム作りに挑戦しようとしているのでもない。単純にキューブの動きをシミュレートしたいだけなのだから…。

　そんなことをぼんやり考えながら、ランダムな回転操作（左手を使って背後で回すと、よく分からなくなる）を数回繰り返して、ほどほどに崩れたところから数回の手順で元に戻す一人遊び（詰めキューブ？）をやっていた。定型的な解法に頼らず、色の配置を見てその都度考えることになるので、何べんやっても飽きがこない。訳も分からず暗記した解法を使って元に戻してもちっとも面白くない。そんなのは、解の公式を使って二次方程式を解くようなものだ。

　そのとき突然、ひらめいた。立体なんだから平面上で考えるより空間で考えりゃいいんだ。なんだ、簡単じゃないか。(x, y, z)を使ってキューブを識別すれば、どの面とどの面がつながっているかをいちいち考えずにすむ。複数の面を持ったキューブ自体を移動させれば計算もシンプルになるはずだ。なるほど、面を倒したりして考えていたから面倒なことになっていたんだな。

　――結局、最後は駄洒落かよ。ひねりが足りんな。

（図６：座標）

                               (y=3)       (x=3)
                             (y=2) ＼     ／ (x=2)
           ／ ＼           (y=1) ＼  ／|＼  ／ (x=1)
         ／     ＼             ＼  ／  |  ＼  ／
       ／   白    ＼             ／橙  |  緑＼
      |＼  (z=1)  ／| ＿(z=1)＿ | (x=3)|(y=3) |
      |  ＼     ／  | ＿(z=2)＿ |    ／ ＼    |
      |  赤＼ ／黄  | ＿(z=3)＿ |  ／     ＼  |
      | (x=1)|(y=1) |           |／   青    ＼|
       ＼    |    ／             ＼  (z=3)  ／
     ／  ＼  |  ／  ＼             ＼     ／
 (y=3) ／  ＼|／  ＼ (x=3)           ＼ ／
   (y=2) ／     ＼ (x=2)
     (y=1)       (x=1)

（図７：座標入り展開図）(*)

                                  白(z=1)の面
                           +-------+-------+-------+
                           |(1,3,1)|(2,3,1)|(3,3,1)|
                           +-------+-------+-------+
                           |(1,2,1)|(2,2,1)|(3,2,1)|
                           +-------+-------+-------+
                           |(1,1,1)|(2,1,1)|(3,1,1)|
                           +-------+-------+-------+

        赤(x=1)の面               黄(y=1)の面
 +-------+-------+-------+ +-------+-------+-------+
 |(1,3,1)|(1,2,1)|(1,1,1)| |(1,1,1)|(2,1,1)|(3,1,1)|
 +-------+-------+-------+ +-------+-------+-------+
 |(1,3,2)|(1,2,2)|(1,1,2)| |(1,1,2)|(2,1,2)|(3,1,2)|
 +-------+-------+-------+ +-------+-------+-------+
 |(1,3,3)|(1,2,3)|(1,1,3)| |(1,1,3)|(2,1,3)|(3,1,3)|
 +-------+-------+-------+ +-------+-------+-------+
                          /                       /
     ____________________/                       /
    /                       ____________________/
   /                       /
  /     青(z=3)の面       /       橙(x=3)の面
 +-------+-------+-------+ +-------+-------+-------+
 |(1,1,3)|(2,1,3)|(3,1,3)| |(3,1,3)|(3,1,2)|(3,1,1)|
 +-------+-------+-------+ +-------+-------+-------+
 |(1,2,3)|(2,2,3)|(3,2,3)| |(3,2,3)|(3,2,2)|(3,2,1)|
 +-------+-------+-------+ +-------+-------+-------+
 |(1,3,3)|(2,3,3)|(3,3,3)| |(3,3,3)|(3,3,2)|(3,3,1)|
 +-------+-------+-------+ +-------+-------+-------+

        緑(y=3)の面
 +-------+-------+-------+
 |(1,3,3)|(2,3,3)|(3,3,3)|
 +-------+-------+-------+
 |(1,3,2)|(2,3,2)|(3,3,2)|
 +-------+-------+-------+
 |(1,3,1)|(2,3,1)|(3,3,1)|
 +-------+-------+-------+

(*)表示幅の都合で、下半分の三面を左にずらしました。

　いくら何でも「21(R-Y)+21(-R+Y)」を偶然見つけるなんて、確率的にはほとんど有り得ないだろうと思いました。僕は一体どうやってこの手順にたどりついたんだろうか…。そう考えてみても、ちっとも思い出せませんでした。

　しかし、「2個のコーナーキューブの向きを変える84ステップの手順」を知っていることは間違いないし、現物を使ってやってみると確かにコーナーキューブの向きが変わりました。だいたい、この「21回繰り返し」という手順はどこから出てきたのか？

　そんなことをぼんやり考えながら何度もキューブを回しているうちに、どこかで手順を間違ったらしく、元に戻らなくなってしまいました。そこで、当時のやり方でエッジキューブの色から揃えていきました。エッジだけなら完全な解法を知らなくても適当にやっていけば何とか揃います。コーナーキューブもいくつかは正しい位置に入っています。

　そこで、位置だけは正しいコーナーキューブの向きを揃えるために、例の84ステップを（今度は間違わないように）慎重に2ステップずつ数えながらやっていきました。すると、7の倍数（つまり14の倍数のステップ）のときに、エッジキューブが正しい位置に正しい向きで戻ってくることに気付きました。しかし、コーナーキューブは相変わらずバラバラのままです。このとき、やっと思い出しました。この14ステップで、エッジキューブの位置と向きを保存したまま、コーナーキューブの位置や向きを変えることができるのです。

　いろいろ試してみた結果、隣り合った面Ｐと面Ｑに関して、以下の操作を加えると、エッジキューブの状態を崩すことなく、6個のコーナーキューブの位置や向きを変えられることが分かりました。

7(P+Q), 7(P-Q), 7(-P+Q), 7(-P-Q),
7(Q+P), 7(Q-P), 7(-Q+P), 7(-Q-P)

　当時は、この手順と結果をメモしておいて使い分けていたのだろうと思います。これをいろんな面のペアに対して繰り返していけば、コーナーキューブの位置を全部合わせることができそうです。そして、最後の仕上げでコーナーキューブの向きを揃える手順が、例の84ステップだったのでしょう。道理でほかの手順をすっかり忘れてしまっているわけです。

　そして、(P-Q)や(-P+Q)のように隣り合った面を互いに逆方向に回転させる場合は、3回（6ステップ）ごとに、コーナーキューブが元の位置に戻る（ただし向きは一定方向にずれる）ことが分かりました。9回（18ステップ）目には、元の位置・元の向きに戻ります。ということは、21回（42ステップ）目には、エッジキューブの位置と向きが元に戻り、かつ、コーナーキューブは位置だけが正しい状態になるわけです。

　その後、同じ面のペアをさっきとは逆方向に回転する手順に切り換えて21回繰り返すと、2つの面に共有されるコーナーキューブの向きだけが変化して、他のキューブは最初の状態に戻りました。おそらく、片方の面に属するコーナーキューブでは、前半の21回（42ステップ）で生じた向きのずれが後半の21回（42ステップ）によって相殺されたのでしょう。

　この件については、後日改めて詳しく検証してから補足したいと思います。

　――店主は、喋り疲れたのか、奥に引っ込んで昼寝を始めた。

　赤の面を「右へ1/4回転」すると、キューブの状態は前回書いた（図２）から（図３）のように変化します。このときの操作を、「Red」の頭文字をとって「R」と書くことにしましょうか。ついでに、他の面についても、同様に「W」・「G」・「Y」・「O」・「B」と書くことにします。このときに変化する部分を（図４）に示します。

　こうすると、「白・緑・赤・黄・橙・青の各面の右への1/4回転」は、「W,G,R,Y,O,B」という6個のアルファベットで表わせるようになります。そして、驚くべきことに（別に驚かなくてもいいですけど）、ルービックキューブに対する全ての操作（ただし分解と組み立てを除く）は、この6文字の並びだけで記述できることになります。つまり、ルービックキューブの取り得る状態は、全部、（図４）の変化の組み合わせで実現可能なのです。

　例えば、「Rの面を右へ1/4回転した後、Yの面を右に3/4回転する」は、

R+Y+Y+Y

のように書きますが、さすがにこのままでは面倒です。「右へ3/4回転」は「左へ1/4回転」と同じことなので、「Y+Y+Y」を「-Y」にして、

R-Y

と書いた方がシンプルだし、実際の手順も簡単になります。これを21回繰り返す場合は、

21(R-Y)

と書くことにします。この後に「Rの面を左に1/4回転した後、Yの面を右に1/4回転する」を21回繰り返す操作を付け加えると、

21(R-Y)+21(-R+Y)

となります。これを実際にやった結果は（図５）のようになります。

　ちょっと脱線しますが、この「2個のコーナーキューブの向きを変えるための84ステップの手順」は、恐らくどの攻略本にも掲載されていないでしょう。
　自慢ではありませんが、この手順はキューブを適当に（ある程度は規則的に）回しているうちに偶然見つけました。そのころ見つけた手順のうち、覚えているのはこれだけですが、先にエッジを完全に揃えておいて最後にコーナーの向きを合わせるという、これまた攻略本には載っていないやり方でした。
　脱線したついでに言っておきますが、最短の手順をマスターして６面揃えるスピードを競っているのを見ると、確かに凄いなーとは思うけれども、面白がるポイントがずれているように感じてしまいます。考案者のルービックさんも、それを見て、つい「リベンジ」したくなったんではなかろうかなどと、勝手な妄想をしています。

　「Rの面を右へ1/4回転する」を2回続けるときは「2R」と書くことにします。

2R+2O+2G+2Y+2W+2B

　この「R・O」、「G・Y」、「W・B」は、それぞれ反対側の面のペアになっているので、さらに以下のように簡略化することにします。

2RO+2GY+2WB

　この結果がどうなるかを想像してみてください。

　――ここで店主は、午後の光が傾き始めているのを見て、口を噤んだ。

（図４：各面を右に1/4回転したときに変化する部分）

（図５：21(R-Y)+21(-R+Y)の結果）

　ルービックキューブが日本で発売された1980年、僕は浪人生をやっていました。雑誌の記事で面白そうな立体パズルがあると知り、百貨店の玩具売り場や玩具専門店を捜し回って、ようやく現物を手に入れました。それは使っているうちにシールがはがれてしまうという粗悪な模造品でしたが、構造は本物と同じだったので特に問題はありません。

　さて、僕が手にしているこのキューブは（実は現実の世界では僕の目の前に現物はないのですが）、立方体を３×３×３個に賽の目切りにしたような物で、大きな立方体の表面は、それぞれ異なる色に塗り分けられています。（図１）

　大きな立方体の同じ面を共有する小立方体（３×３個）は、表面中央の小立方体と裏面中央の小立方体を結ぶ線を軸にして（90度ずつ）自由に回転できるような構造になっています。回転軸は３本あります。何回か軸を適当に変えながら回転していくと、小さな立方体の位置が変化して、大きな立方体の各面の色は入り交じった状態になってしまいます。
　論理的には、「今やったこと」を逆の順番で逆に回転させて行けば元の状態に戻る筈ですが、見かけの単純さにすっかり騙されて、うかつにも「今やったこと」を記憶も記録もしていなかった僕は元に戻す手順が分からず、さらに出鱈目に回し続けるしかありませんでした。そして、何日間か闇雲にいじくり回しているうちに、偶然、元の状態に戻すことができました。

　多くの人が知っているルービックキューブについて必要以上に詳しく説明してしまいましたが、それはこの立体パズルのシンプルな美しさを頭の中に思い描いてもらいたかったからなのです。

　僕は、偶然元に戻せただけでは納得できず、この難しいパズルの正体を突き止めてやろうと思いました。いつでも最初の状態に戻せるように紙に記録を取りながら、「少し崩しては戻す」という操作を、しつこく繰り返しました。その当時の記録も手元にはないのですが、展開図の各面を９分割して色を表わす記号を書き込んだものでした。（図２）

　例えば、赤の面を右に90度回した場合は、図３のように変化します。こうやって、何度も回転しては同じような図を書いていきました。

　今にして思えば、ルービックキューブの解法を調べるのために何十枚も図を書く必要はありませんでした。図２と図３だけあれば充分だったのです。

　ここで、店主は口を噤み、どこかへ出て行った。たぶん現実の仕事の時間が迫っていたのだろう。

（図２：最初の状態）

（図３：赤を右に90度回した状態）

　どこか裏の方から戻って来た店主は、床に散らばった本には目もくれず、五連休だシルバーウイークだとかいってもそんなに休んでばかりはいられない。たまっている仕事を片付けなくてはと、パソコンの電源を入れブラウザを開いた。「今、お気に入りの音楽教えて！」とか「お彼岸スペシャル。あなたの、一番好きな“おはぎ”の種類は？」とかいうネタが並んでいるのを見たが、どうも気乗りしない様子でブラウザを閉じ、DOSプロンプトを開いた。

C:\WINDOWS>e:

E:\>cd \puzzle\f_num

E:\PUZZLE\F_NUM>jperl f_num.pl 10

(1,1,1,1) : 0
(1,1,1,2) : 0
(1,1,1,3) : 0
(1,1,1,4) : 1
(1,1,1,5) : 17
(1,1,1,6) : 1
(1,1,1,7) : 1
(1,1,1,8) : 41
(1,1,1,9) : 82
(1,1,2,2) : 0
(1,1,2,3) : 7
(1,1,2,4) : 36
(1,1,2,5) : 86
(1,1,2,6) : 26
(1,1,2,7) : 78
(1,1,2,8) : 96
(1,1,2,9) : 98
(1,1,3,3) : 16
(1,1,3,4) : 13
(1,1,3,5) : 18
(1,1,3,6) : 75
(1,1,3,7) : 96
(1,1,3,8) : 81
(1,1,3,9) : 16
(1,1,4,4) : 1
(1,1,4,5) : 80
(1,1,4,6) : 96
(1,1,4,7) : 82
(1,1,4,8) : 22
(1,1,4,9) : 1
(1,1,5,5) : 57
(1,1,5,6) : 80
(1,1,5,7) : 16
(1,1,5,8) : 1
(1,1,5,9) : 0
(1,1,6,6) : 9
(1,1,6,7) : 2
(1,1,6,8) : 4
(1,1,6,9) : 0
(1,1,7,7) : 0
(1,1,7,8) : 0
(1,1,7,9) : 0
(1,1,8,8) : 0
(1,1,8,9) : 2
(1,1,9,9) : 4
(1,2,2,2) : 6
(1,2,2,3) : 33
(1,2,2,4) : 41
(1,2,2,5) : 28
(1,2,2,6) : 79
(1,2,2,7) : 41
(1,2,2,8) : 38
(1,2,2,9) : 60
(1,2,3,3) : 26
(1,2,3,4) : 54
(1,2,3,5) : 105
(1,2,3,6) : 55
(1,2,3,7) : 35
(1,2,3,8) : 42
(1,2,3,9) : 111
(1,2,4,4) : 57
(1,2,4,5) : 110
(1,2,4,6) : 29
(1,2,4,7) : 45
(1,2,4,8) : 113
(1,2,4,9) : 52
(1,2,5,5) : 24
(1,2,5,6) : 30
(1,2,5,7) : 89
(1,2,5,8) : 43
(1,2,5,9) : 10
(1,2,6,6) : 52
(1,2,6,7) : 54
(1,2,6,8) : 45
(1,2,6,9) : 5
(1,2,7,7) : 3
(1,2,7,8) : 13
(1,2,7,9) : 6
(1,2,8,8) : 6
(1,2,8,9) : 12
(1,2,9,9) : 8
(1,3,3,3) : 5
(1,3,3,4) : 55
(1,3,3,5) : 19
(1,3,3,6) : 6
(1,3,3,7) : 4
(1,3,3,8) : 10
(1,3,3,9) : 60
(1,3,4,4) : 15
(1,3,4,5) : 19
(1,3,4,6) : 7
(1,3,4,7) : 8
(1,3,4,8) : 26
(1,3,4,9) : 107
(1,3,5,5) : 34
(1,3,5,6) : 83
(1,3,5,7) : 28
(1,3,5,8) : 95
(1,3,5,9) : 30
(1,3,6,6) : 19
(1,3,6,7) : 96
(1,3,6,8) : 69
(1,3,6,9) : 27
(1,3,7,7) : 19
(1,3,7,8) : 7
(1,3,7,9) : 22
(1,3,8,8) : 2
(1,3,8,9) : 9
(1,3,9,9) : 0
(1,4,4,4) : 0
(1,4,4,5) : 7
(1,4,4,6) : 15
(1,4,4,7) : 6
(1,4,4,8) : 13
(1,4,4,9) : 60
(1,4,5,5) : 10
(1,4,5,6) : 23
(1,4,5,7) : 12
(1,4,5,8) : 91
(1,4,5,9) : 114
(1,4,6,6) : 12
(1,4,6,7) : 23
(1,4,6,8) : 92
(1,4,6,9) : 32
(1,4,7,7) : 44
(1,4,7,8) : 38
(1,4,7,9) : 4
(1,4,8,8) : 22
(1,4,8,9) : 12
(1,4,9,9) : 0
(1,5,5,5) : 4
(1,5,5,6) : 8
(1,5,5,7) : 17
(1,5,5,8) : 17
(1,5,5,9) : 60
(1,5,6,6) : 4
(1,5,6,7) : 10
(1,5,6,8) : 40
(1,5,6,9) : 112
(1,5,7,7) : 20
(1,5,7,8) : 89
(1,5,7,9) : 45
(1,5,8,8) : 22
(1,5,8,9) : 11
(1,5,9,9) : 4
(1,6,6,6) : 0
(1,6,6,7) : 0
(1,6,6,8) : 10
(1,6,6,9) : 64
(1,6,7,7) : 0
(1,6,7,8) : 23
(1,6,7,9) : 107
(1,6,8,8) : 44
(1,6,8,9) : 28
(1,6,9,9) : 0
(1,7,7,7) : 0
(1,7,7,8) : 8
(1,7,7,9) : 60
(1,7,8,8) : 14
(1,7,8,9) : 105
(1,7,9,9) : 15
(1,8,8,8) : 8
(1,8,8,9) : 60
(1,8,9,9) : 77
(1,9,9,9) : 47
(2,2,2,2) : 6
(2,2,2,3) : 10
(2,2,2,4) : 15
(2,2,2,5) : 51
(2,2,2,6) : 12
(2,2,2,7) : 11
(2,2,2,8) : 47
(2,2,2,9) : 15
(2,2,3,3) : 9
(2,2,3,4) : 22
(2,2,3,5) : 10
(2,2,3,6) : 28
(2,2,3,7) : 56
(2,2,3,8) : 35
(2,2,3,9) : 26
(2,2,4,4) : 25
(2,2,4,5) : 18
(2,2,4,6) : 81
(2,2,4,7) : 26
(2,2,4,8) : 20
(2,2,4,9) : 24
(2,2,5,5) : 33
(2,2,5,6) : 26
(2,2,5,7) : 0
(2,2,5,8) : 35
(2,2,5,9) : 29
(2,2,6,6) : 6
(2,2,6,7) : 10
(2,2,6,8) : 30
(2,2,6,9) : 19
(2,2,7,7) : 13
(2,2,7,8) : 6
(2,2,7,9) : 4
(2,2,8,8) : 21
(2,2,8,9) : 2
(2,2,9,9) : 1
(2,3,3,3) : 7
(2,3,3,4) : 12
(2,3,3,5) : 65
(2,3,3,6) : 30
(2,3,3,7) : 40
(2,3,3,8) : 54
(2,3,3,9) : 7
(2,3,4,4) : 37
(2,3,4,5) : 61
(2,3,4,6) : 62
(2,3,4,7) : 27
(2,3,4,8) : 56
(2,3,4,9) : 44
(2,3,5,5) : 14
(2,3,5,6) : 41
(2,3,5,7) : 33
(2,3,5,8) : 7
(2,3,5,9) : 40
(2,3,6,6) : 24
(2,3,6,7) : 7
(2,3,6,8) : 17
(2,3,6,9) : 47
(2,3,7,7) : 10
(2,3,7,8) : 38
(2,3,7,9) : 25
(2,3,8,8) : 9
(2,3,8,9) : 16
(2,3,9,9) : 7
(2,4,4,4) : 21
(2,4,4,5) : 63
(2,4,4,6) : 21
(2,4,4,7) : 23
(2,4,4,8) : 69
(2,4,4,9) : 16
(2,4,5,5) : 15
(2,4,5,6) : 18
(2,4,5,7) : 47
(2,4,5,8) : 45
(2,4,5,9) : 23
(2,4,6,6) : 40
(2,4,6,7) : 26
(2,4,6,8) : 48
(2,4,6,9) : 31
(2,4,7,7) : 6
(2,4,7,8) : 22
(2,4,7,9) : 47
(2,4,8,8) : 23
(2,4,8,9) : 27
(2,4,9,9) : 8
(2,5,5,5) : 45
(2,5,5,6) : 19
(2,5,5,7) : 8
(2,5,5,8) : 48
(2,5,5,9) : 19
(2,5,6,6) : 53
(2,5,6,7) : 44
(2,5,6,8) : 40
(2,5,6,9) : 24
(2,5,7,7) : 55
(2,5,7,8) : 8
(2,5,7,9) : 25
(2,5,8,8) : 55
(2,5,8,9) : 45
(2,5,9,9) : 53
(2,6,6,6) : 2
(2,6,6,7) : 19
(2,6,6,8) : 64
(2,6,6,9) : 7
(2,6,7,7) : 17
(2,6,7,8) : 28
(2,6,7,9) : 44
(2,6,8,8) : 14
(2,6,8,9) : 27
(2,6,9,9) : 17
(2,7,7,7) : 8
(2,7,7,8) : 50
(2,7,7,9) : 13
(2,7,8,8) : 28
(2,7,8,9) : 23
(2,7,9,9) : 24
(2,8,8,8) : 33
(2,8,8,9) : 27
(2,8,9,9) : 45
(2,9,9,9) : 7
(3,3,3,3) : 1
(3,3,3,4) : 7
(3,3,3,5) : 7
(3,3,3,6) : 8
(3,3,3,7) : 36
(3,3,3,8) : 11
(3,3,3,9) : 6
(3,3,4,4) : 3
(3,3,4,5) : 31
(3,3,4,6) : 55
(3,3,4,7) : 27
(3,3,4,8) : 13
(3,3,4,9) : 8
(3,3,5,5) : 33
(3,3,5,6) : 26
(3,3,5,7) : 2
(3,3,5,8) : 14
(3,3,5,9) : 18
(3,3,6,6) : 1
(3,3,6,7) : 9
(3,3,6,8) : 9
(3,3,6,9) : 19
(3,3,7,7) : 1
(3,3,7,8) : 11
(3,3,7,9) : 18
(3,3,8,8) : 10
(3,3,8,9) : 12
(3,3,9,9) : 9
(3,4,4,4) : 0
(3,4,4,5) : 17
(3,4,4,6) : 49
(3,4,4,7) : 46
(3,4,4,8) : 18
(3,4,4,9) : 6
(3,4,5,5) : 25
(3,4,5,6) : 53
(3,4,5,7) : 40
(3,4,5,8) : 35
(3,4,5,9) : 16
(3,4,6,6) : 2
(3,4,6,7) : 11
(3,4,6,8) : 29
(3,4,6,9) : 30
(3,4,7,7) : 4
(3,4,7,8) : 2
(3,4,7,9) : 30
(3,4,8,8) : 5
(3,4,8,9) : 35
(3,4,9,9) : 9
(3,5,5,5) : 6
(3,5,5,6) : 16
(3,5,5,7) : 47
(3,5,5,8) : 7
(3,5,5,9) : 7
(3,5,6,6) : 19
(3,5,6,7) : 42
(3,5,6,8) : 27
(3,5,6,9) : 35
(3,5,7,7) : 2
(3,5,7,8) : 15
(3,5,7,9) : 22
(3,5,8,8) : 2
(3,5,8,9) : 35
(3,5,9,9) : 17
(3,6,6,6) : 15
(3,6,6,7) : 46
(3,6,6,8) : 27
(3,6,6,9) : 0
(3,6,7,7) : 28
(3,6,7,8) : 22
(3,6,7,9) : 11
(3,6,8,8) : 14
(3,6,8,9) : 35
(3,6,9,9) : 24
(3,7,7,7) : 33
(3,7,7,8) : 29
(3,7,7,9) : 0
(3,7,8,8) : 46
(3,7,8,9) : 22
(3,7,9,9) : 43
(3,8,8,8) : 7
(3,8,8,9) : 13
(3,8,9,9) : 11
(3,9,9,9) : 0
(4,4,4,4) : 0
(4,4,4,5) : 13
(4,4,4,6) : 38
(4,4,4,7) : 7
(4,4,4,8) : 7
(4,4,4,9) : 2
(4,4,5,5) : 30
(4,4,5,6) : 38
(4,4,5,7) : 13
(4,4,5,8) : 18
(4,4,5,9) : 0
(4,4,6,6) : 2
(4,4,6,7) : 2
(4,4,6,8) : 18
(4,4,6,9) : 12
(4,4,7,7) : 0
(4,4,7,8) : 7
(4,4,7,9) : 13
(4,4,8,8) : 13
(4,4,8,9) : 15
(4,4,9,9) : 9
(4,5,5,5) : 21
(4,5,5,6) : 48
(4,5,5,7) : 20
(4,5,5,8) : 0
(4,5,5,9) : 1
(4,5,6,6) : 28
(4,5,6,7) : 25
(4,5,6,8) : 16
(4,5,6,9) : 7
(4,5,7,7) : 12
(4,5,7,8) : 32
(4,5,7,9) : 11
(4,5,8,8) : 11
(4,5,8,9) : 22
(4,5,9,9) : 24
(4,6,6,6) : 33
(4,6,6,7) : 32
(4,6,6,8) : 13
(4,6,6,9) : 5
(4,6,7,7) : 45
(4,6,7,8) : 42
(4,6,7,9) : 2
(4,6,8,8) : 55
(4,6,8,9) : 24
(4,6,9,9) : 43
(4,7,7,7) : 7
(4,7,7,8) : 13
(4,7,7,9) : 6
(4,7,8,8) : 7
(4,7,8,9) : 25
(4,7,9,9) : 11
(4,8,8,8) : 3
(4,8,8,9) : 5
(4,8,9,9) : 0
(4,9,9,9) : 0
(5,5,5,5) : 18
(5,5,5,6) : 18
(5,5,5,7) : 1
(5,5,5,8) : 8
(5,5,5,9) : 2
(5,5,6,6) : 26
(5,5,6,7) : 16
(5,5,6,8) : 5
(5,5,6,9) : 11
(5,5,7,7) : 26
(5,5,7,8) : 14
(5,5,7,9) : 7
(5,5,8,8) : 26
(5,5,8,9) : 14
(5,5,9,9) : 26
(5,6,6,6) : 11
(5,6,6,7) : 13
(5,6,6,8) : 0
(5,6,6,9) : 3
(5,6,7,7) : 10
(5,6,7,8) : 37
(5,6,7,9) : 2
(5,6,8,8) : 12
(5,6,8,9) : 22
(5,6,9,9) : 7
(5,7,7,7) : 4
(5,7,7,8) : 2
(5,7,7,9) : 13
(5,7,8,8) : 0
(5,7,8,9) : 12
(5,7,9,9) : 0
(5,8,8,8) : 4
(5,8,8,9) : 3
(5,8,9,9) : 0
(5,9,9,9) : 4
(6,6,6,6) : 0
(6,6,6,7) : 0
(6,6,6,8) : 8
(6,6,6,9) : 6
(6,6,7,7) : 0
(6,6,7,8) : 3
(6,6,7,9) : 13
(6,6,8,8) : 5
(6,6,8,9) : 5
(6,6,9,9) : 5
(6,7,7,7) : 0
(6,7,7,8) : 0
(6,7,7,9) : 3
(6,7,8,8) : 4
(6,7,8,9) : 10
(6,7,9,9) : 5
(6,8,8,8) : 0
(6,8,8,9) : 4
(6,8,9,9) : 0
(6,9,9,9) : 0
(7,7,7,7) : 0
(7,7,7,8) : 2
(7,7,7,9) : 2
(7,7,8,8) : 0
(7,7,8,9) : 0
(7,7,9,9) : 0
(7,8,8,8) : 0
(7,8,8,9) : 2
(7,8,9,9) : 2
(7,9,9,9) : 0
(8,8,8,8) : 2
(8,8,8,9) : 2
(8,8,9,9) : 0
(8,9,9,9) : 2
(9,9,9,9) : 2

E:\PUZZLE\F_NUM>jperl f_num.pl 10 9 9 9 9

(9*9+9)/9=10
(9+9*9)/9=10

E:\PUZZLE\F_NUM>

　どうもまだ、式のチェックが甘いようだな…。店主は、スクリプトを開いて「(9*9+9)/9」と「(9+9*9)/9」を同一視するように改良し始めた。