分割数を求める際の整数の分割方法を表示したい

partition_num_detail.egi

#!/usr/bin/env egison
(define $main
  (lambda [$args]
    (each display (divnum (read (car args))))))

(define $divnum
  (lambda [$n]
    (unique
      (match-all (take n (repeat1 1)) (list integer)
        [(loop $i [1 n] <join $a_i ...> <nil>)
         [(sort (map 1#a_%1 (between 1 n)))]]))))

; 5を分割する例
; $ egison partition_num_detail.egi 5
; {0 0 0 0 5}
; {0 0 0 1 4}
; {0 0 0 2 3}
; {0 0 1 1 3}
; {0 0 1 2 2}
; {0 1 1 1 2}
; {1 1 1 1 1}