2010-02-18 84 views
0

我在Lisp中下面的代碼:轉換代碼F#

(defun Is_List_Even (lista) 
    (cond 
    ((null lista) t) 
    ((null (cadr lista)) nil) 
    (t (Is_List_Even (cddr lista))))) 

有人可以幫助我在F#寫?我是F#的新手,我很匆忙。

Regards, Voicu。

+1

我冒昧地將您的代碼重新格式化爲Lisp標準。還有幾點:名稱通常由連字符組成('is-list-even'),您可以調用您的列表'list'。 – Svante 2010-02-18 11:22:02

回答

5
let rec even = function 
| [] -> true 
| [_] -> false 
| _::_::l -> even l