PasteRack.org
Paste # 25294
2019-04-11 10:49:44

Fork as a new paste.

Paste viewed 141 times.


Embed:

  1. #lang racket
  2. ;;repeat : symbol natural -> los
  3. ;;produce a list with symbols
  4. (define (repeat symbol natural)
  5.   (cond
  6.    [(zero? natural) empty]
  7.    [else (cons symbol ( repeat symbol (sub1 natural)))]))
  8. (repeat 'bets 3)

=>

'(bets bets bets)