18/08/03 20:39:39.00 STrKxFQ8.net
再帰呼び出しでのプログラミングってパズルだな。
Ｐｒｏｇｌｏｇ：
ｅｖｅｎｌｅｎｇｔｈ（［］）．
ｅｖｅｎｌｅｎｇｔｈ（［＿，＿｜Ｘ］） ：－ ｅｖｅｎｌｅｎｇｔｈ（Ｘ）．
ｏｄｄｌｅｎｇｔｈ（［＿］）．
ｏｄｄｌｅｎｇｔｈ（［＿，＿｜Ｘ］） ：－ ｏｄｄｌｅｎｇｔｈ（Ｘ）．
ｒｅｖｅｒｓｅ（［］，［］）．
ｒｅｖｅｒｓｅ（［Ｘ｜Ｌ］，Ｚ） ：－ ｒｅｖｅｒｓｅ（Ｌ，Ｙ）， ａｐｐｅｎｄ（Ｙ，［Ｘ］，Ｚ）．
Ｒ：
ｅｖｅｎｌｅｎｇｔｈ ＜－ ｆｕｎｃｔｉｏｎ（ｘ） ！（ｌｅｎｇｔｈ（ｘ）％％２）
ｏｄｄｌｅｎｇｔｈ ＜－ ｆｕｎｃｔｉｏｎ（ｘ） ！！ｌｅｎｇｔｈ（ｘ）％％２
ｒｅｖｅｒｓｅ ＜－ ｆｕｎｃｉｔｏｎ（ｘ） ｒｅｖ（ｘ）