変換用の演算子の定義 (define (make-default-operator-rule-set) (rule-set (list (operator '+ 1 'left (unit 0 #f #t)) (operator '- 1 'left (unit 0 #t #t)) (operator '* 2 'left (unit 1)) (operator '/ 2 'left (unit 1 #t)) (operator '^ 3 'right #f (prefix 'expt #t)))))
https://mastodon.tojo.tokyo/system/media_attachments/files/113/074/453/200/714/508/original/6723ab5ca5f76dff.png