Сам накидал, может кому пригодится

Maxx 06.04.2017 13:11 / 06.04.2017 13:15

# parser 3.4.0+
@num2roman[n][locals]
$result[]
$nums[^hash::create[
	$.1000[M]
	$.900[CM]
	$.500[D]
	$.400[CD]
	$.100[C]
	$.90[XC]
	$.50[L]
	$.40[XL]
	$.10[X]
	$.9[IX]
	$.5[V]
	$.4[IV]
	$.1[I]
]]
^while($n > 0){
	^nums.foreach[k;v]{
		^while($n >= $k){		
			$result[${result}$v]
			$n($n-$k)
		}
	}
}

^num2roman[121] => CXXI