E>А без #pragma indent? (просто регулярно всплывают проблемы из-за табуляций/пробелов).

[1, 0, 1, 0, 0, 0]

WriteLine(r.ToString(", "))

ie>#pragma indent

ie>using System.Console
ie>using System.Math

ie>def makeDistrib(trxCount : int, quantums : int)
ie>    mutable r : list[int] = []
ie>    mutable remainingTrx = trxCount
ie>    mutable remainingQuantums = quantums
ie>    foreach (_i in [1..quantums])
ie>        r ::= Round(remainingTrx / (remainingQuantums :> double)) :> int
ie>        remainingTrx -= r.Head
ie>        --remainingQuantums
ie>    r

ie>def r = makeDistrib(2, 6)
ie>WriteLine($"$r")
ie>

[1, 0, 1, 0, 0, 0]

0,0,1,0,1,0

double x0 = Math.Round(0.5);  // x0 == 0.0
double x1 = Math.Round(0.5, MidpointRounding.AwayFromZero);  // x1 == 1.0

ie>Угу, тут в примерах это хорошо видно. — почему такое поведение. Как-то, по-моему, в .NET эта тема поднималась, но к чему пришли не помню, лень искать

ie>+1 забыл

#pragma indent
 
using System.Console
using System.Math
 
def makeDistrib(trxCount : int, quantums : int)
    mutable r : list[int] = []
    mutable remainingTrx = trxCount
    mutable remainingQuantums = quantums
    foreach (_i in [1..quantums])
        r ::= Round((remainingTrx :> double) / remainingQuantums + 0.1) :> int
        remainingTrx -= r.Head
        --remainingQuantums
    r = r.Reverse
    r
 
def r = makeDistrib(2, 6)
WriteLine($"$r")

E>Опытным путем удалось установить, что достаточно прибавлять 0.1, тогда округляет как нужно. Но вот как сделать реверсию я не догнал

def makeDistrib(trxCount, quantums : int)
  mutable r = []
  mutable remainingTrx = trxCount
  mutable remainingQuantums = quantums
  foreach (_i in [1..quantums])
    // как правильно сказал Oyster
    r ::= Round(remainingTrx / (remainingQuantums :> double), 
                MidpointRounding.AwayFromZero) :> int
    remainingTrx -= r.Head
    --remainingQuantums
  r.Rev()

E>А без #pragma indent? (просто регулярно всплывают проблемы из-за табуляций/пробелов).

using System.Console
using System.Math

def makeDistrib(trxCount : int, quantums : int)
{
    mutable r : list[int] = []
    mutable remainingTrx = trxCount
    mutable remainingQuantums = quantums
    foreach (_i in [1..quantums])
    {
        r ::= Round(remainingTrx / (remainingQuantums :> double)) :> int
        remainingTrx -= r.Head
        --remainingQuantums
    }
    r
}

def r = makeDistrib(2, 6)
WriteLine($"$r")

E>А к функциональности еще привыкать нужно (например, необходимость вызова reverse после возврата из nextValue не слишком очевидна). Ну и под Scala все переписывать нужно

def make_dist(trx_count, quantum_count, result = []):
    if quantum_count == 0: 
        return result
    else:
        result.append(int(round(float(trx_count) / quantum_count)))
        return make_dist(trx_count - result[-1], quantum_count - 1, result)

print ", ".join(map(str, make_dist(2, 6)))

def makeDistrib(trxCount : int, quantums : int)
{
| (_, 0) => []
| (remainingTrx, remainingQuantums) =>
    def r = (remainingTrx :> double) / remainingQuantums;
    def r = Round(r, MidpointRounding.AwayFromZero) :> int;
    r :: makeDistrib(remainingTrx - r, remainingQuantums - 1);
}
def r = makeDistrib(2, 6);
WriteLine($"$r");

auto test = new Testing(1, 2, 3);

E>>А к функциональности еще привыкать нужно (например, необходимость вызова reverse после возврата из nextValue не слишком очевидна). Ну и под Scala все переписывать нужно

import std.math;
import std.stdio;

int[] makeDistrib2(int trxCount, int quantums,  int[] result = [])
{
if(quantums == 0) return result;

auto next = cast(int)round(cast(float)trxCount / quantums);
return makeDistrib2(trxCount - next, quantums - 1, result ~ [next]);
}

void main()
{
writefln(makeDistrib2( 2, 6 ));
}