前の前のエントリで紹介した中置記法のマクロですが、「べき乗って右結合じゃね?」ってつぶやいてみたところ即座に改造してくれましたヽ(´▽`)ノわーい右結合がサポートされたことにより代入演算まで入れてくれました。最早C。すごい。if文のtestに中置記法とか反則すぎ!惚れてまうやろー/// ↓以下zeptometer - CLで中間記法(2)から転載 ;ax^2+bx+c=0の大きい方の解を求める (defun test (a b c) (if {a != 0} {{- b + sqrt {b ** 2 - 4 * a * c}} / {2 * a}} {- c / b})) ;sin(a+b)をわざわざ加法定理で展開して求める (defun test2 (a b) {sin a * cos b + cos a * sin b}) ;こんなのもできる。スパゲティ乙。 ;(+ (LOG (SIN