rn.yml

DUL_rn:
# An internally faster version
  type: procedure
  debug: false
  DUL:
    name:
    - Random Numbers by Total
    author:
    - Anthony
    description:
    - returns the specified amount of random positive integer numbers that always add up to the specified total.
    usage:
    - <proc[DUL_rn].context[<amount>|<total>]>
    example:
    - <proc[DUL_rn].context[5|100]>
  definitions: a|t
  script:
    - define r li@
    - define s '%a%'
    - while <def[s].is[MORE].than[1]>:
      - define s '<def[s].sub[1].round>'
      - define n '<util.random.int[1].to[<def[t].sub[%s%].round>]>'
      - define t '<def[t].sub[%n%].round>'
      - define r '%r%%n%|'
    - define r '%r%%t%'
    - determine <def[r].random[%a%]>

#