egoist · March 20, 2015 14:26
diff --git a/pige3.rkt b/pige3.rkt
 #lang racket

 (define (我是 x n)
  (cond
    [(zero? n) '()]
    [else
     (cons x (我是 x (- n 1)))]))

 (define 猪头 .)

 (define 三 3)
	#lang racket

	(define (我是 x n)
	(cond
	[(zero? n) '()]
	[else
	(cons x (我是 x (- n 1)))]))

	(define 猪头 .)

	(define 三 3)
No results found