【プログラム】表埋め with Scheme【数学】

前回のpythonで描いたコード、場合分けが激しくある者に似ている。
同じか両方無かったら、足さない。片方だけだったら、足す。
これは明らかにXORである。
ということで久々にgauche動かしてみた

gosh>(define (solve n m) (+ 1 (logxor (- n 1) (- m 1))))
solve
gosh>(solve 2 10)
9

ちゃんと数値もあってますね。
ずいぶんとすっきりしましたー。