球拍 - 應用一個布爾值列表

Question

的名單上有利用布爾具有1至替換在一個列表中的第一個數字，而不管其值的函數：

F（{（0，1，0 ），（1,0,1），（1,0,0），...}）= {（1,1,0），（1,0,1），（1,0,0），...。 ..}

到目前爲止，我有

(define (procB set) 
    (map (λ (lst1) ((number? (first lst1)) (cons 1 (rest lst1)))) set)) 

當功能被應用到組的其餘部分的麻煩。我得到的標準誤差

application: not a procedure; 
expected a procedure that can be applied to arguments 
given: #t 

我得到的，它是不工作，因爲那裏是一個布爾值（給定：＃T），但我不太知道如何解決它。

Answer 1

您應該使用if表達式來測試，如果第一個值是一個數字 - 如果不是的話，我們該怎麼辦？我們可以放棄它。此外，你似乎有一對夫婦放錯地方的括號，這應該修正錯誤：

(define (procB set) 
    (map (λ (lst1) 
     (if (number? (first lst1)) 
      (cons 1 (rest lst1)) 
      lst1)) 
     set)) 

現在它按預期工作：

(procB '((0 1 0) (0 0 1) (1 0 0))) 
=> '((1 1 0) (1 0 1) (1 0 0)) 

只是可以肯定......如果子列表只能包含數字，那麼if表達式是多餘的，您在lambda內所要做的全部事情是(cons 1 (rest lst1))。

Answer 2

它在我看來像你缺少一個if。在您的lambda的map,(number? (first lst1))將解析爲#t。然後，它會嘗試將程序#t應用於(cons 1 (rest lst1))，該程序會給出您所看到的錯誤。我懷疑你希望你的lambda更接近

(lambda (lst1) 
    (if (number? (first lst1)) 
     ; then cons 1 with the rest 
     ; else don't replace with a 1