PasteRack.org
Paste # 29621
2024-11-26 00:01:36

Fork as a new paste.

Paste viewed 225 times.


Embed:

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

=>

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