S.I/Lisp/

FLIPCOIN




=FLIPCOIN(5)
-> {"Tails";"Heads";"Heads";"Tails";"Heads"}
        




DEFINE(
    FLIPCOIN,
    LAMBDA(
        [times],
        LET(
            counter,
                DEFAULT(times, 1),
            IF(
                LTE?(counter, 1),
                COINTOSS(),
                VSTACK(
                    COINTOSS(),
                    FLIPCOIN(DECREMENT(counter)))))))
        
        



Help us optimize this function