PasteRack.org
Paste # 91683
2024-11-26 00:00:27

Fork as a new paste.

Paste viewed 189 times.


Embed:

  1. #lang racket
  2.  
  3. ;; (@signature Natural (listof X) -> (listof (listof X)))
  4.  
  5. (define my-lst (list 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15))
  6.  
  7. (check-expect (split-n 3 my-lst)
  8.               (list (list 1 4 7 10 13)
  9.                     (list 2 5 8 11 14)
  10.                     (list 3 6 9 12 15)))
  11. (check-expect (split-n 6 my-lst)
  12.               (list (list 1 7 13) (list 2 8 14) (list 3 9 15)
  13.                     (list 4 10) (list 5 11) (list 6 12)))
  14.  
  15. (define (split-n n lox) (list))

=>

check-expect: undefined;

 cannot reference an identifier before its definition

  in module: 'm

check-expect: undefined;

 cannot reference an identifier before its definition

  in module: 'm