condの中に複数のステートメントを使用するには？

Question

たとえば、私は次のコードを持っています。変数v1を定義し、次にv1という値をチェックします。 v1 == 1の場合は(print-list q2)にして、別の入力を読み込んでv2に保存してください。(define v2 (read))です。

(define v1 (read)) 
(cond 
    [(null? v1) (printf "No input..\n")] 
    [(= v1 1) (print-list q2)] 

上記のソリューションはどのように達成できますか？あなたはcondの条件の後に複数の式を書くことができます

Answer 1

：もちろん

(define v1 (read)) 

(cond 
    [(null? v1) (printf "No input..\n")] 
    [(= v1 1) 
    (define v2 (read)) 
    (print-list q2)] 
    [else (error "Unexpected value")]) 

、print-listとq2が以前に定義されていた場合は、上記にのみ動作しますが、それは何の一般的な考えを示していますやってみたいです。条件の後のすべての式は順番に実行されますが、最後の式の値のみが返されます（この例では(print-list q2)）。

Answer 2

1つはまた、繰り返し読むために再帰を使用することができます。

(define (f) 
    (let loop ((v (read))) 
    (cond [(= 0 v) "End."] 
      [(= 1 v) (println '(a b c))] 
      ; [.. other options ..] 
      [else 
      (println '(1 2 3)) 
      (loop (read))]))) 

テスト：

(f) 

1 
'(a b c) 
0 
"End." 
>