source code clone download copy to clipboard report bug / make suggestion

1
2
3
4
5
6
7
8
(defun ff (x y)
        (cond
                ( (null y) nil )
                ( (eq x (car y))  (ff x (cdr y)) )
                ( T             (cons x (ff x (cdr y))) )
        )
)
(ff '3 '(1 2 3 4 5))

clone download copy to clipboard

• upload with new input
  You have reached a limit of free submissions this month.
  你已經將這個月的上傳額度用完了。請儲值你的帳戶。
  
• # 2:   hide show   clone   input   129 days 19 hours ago    Success

  結果: Success     time: 0.02s    記憶體: 10584 kB     回傳值: 0

  input:

  (defun ff (x y)
    	(cond
          	( (null y) nil )
          	( (eq x (car y))  (ff x (cdr y)) )
          	( T           	(cons x (ff x (cdr y))) )
    	)
  )
  (print (ff '3 '(1 2 3 4 5)))

  output: no
• # 1:   hide show   clone   input   129 days 19 hours ago    Success

  結果: Success     time: 0.02s    記憶體: 10584 kB     回傳值: 0