infix->prefix と prefix->infix の使用例 scheme@(guile-user)> ,use (ice-9 pretty-print) scheme@(guile-user)> ,use (qklib infix) scheme@(guile-user)> (pretty-print (prefix->infix '(/ (+ (- b) (sqrt (- (expt b 2) (* 4 a c)))) (* 2 a)))) (((- b) + (sqrt (b ^ 2 - 4 * a * c))) / (2 * a)) scheme@(guile-user)> (pretty-print (infix->prefix '(((- b) + (sqrt (b ^ 2 - 4 * a * c))) / (2 * a)))) (/ (+ (- b) (sqrt (- (^ b 2) (* (* 4 a) c)))) (* 2 a)) scheme@(guile-user)>
https://mastodon.tojo.tokyo/system/media_attachments/files/113/074/444/674/314/160/original/0c31e2c2622e84a6.png