A function to write a float to a string with a certain numer of decimal places in Verse

FormatRoundedFloatAsString.verse

FormatRoundedFloatAsString(Input : float, NumDigitsAfterDecimal : int) : string =
    if:
        Multiplier := Pow(10.0, NumDigitsAfterDecimal * 1.0)
        RoundedValue := float[Round[Input * Multiplier] * 1.0] / Multiplier
        BeforeDecimal := Floor[RoundedValue]
        AfterDecimal := Abs(Round[(RoundedValue - BeforeDecimal * 1.0)*Multiplier])
        var AfterDecimalString : string = ToString(AfterDecimal)

        #pad the number after the decimal with leading zeroes
        for (It := 0..(NumDigitsAfterDecimal - AfterDecimalString.Length - 1)):
            set AfterDecimalString = array{'0'} + AfterDecimalString
    then:
        if(AfterDecimalString.Length > 0): 
            "{BeforeDecimal}.{AfterDecimalString}" 
        else:
            "{BeforeDecimal}"
    else:
        ToString(Input)