S.I/Lisp/

ROLLDICE




            
=ROLLDICE()
-> 4
            
=ROLLDICE(3)
-> {6;2;5}

        



DEFINE(
    ROLLDICE,
    LAMBDA(
        [times],
        IF(
            LTE(
                DEFAULT(times, 1),
                1),
            DICEROLL(),
            CONS(
                DICEROLL(),
                ROLLDICE(
                    DECREMENT(times))))))
        



Help us optimize this function