为scheme添加for循环语句

78 阅读 0 评论 52 点赞

我是靠谱客的博主温柔裙子，最近开发中收集的这篇文章主要介绍为scheme添加for循环语句，觉得挺不错的，现在分享给大家，希望可以做个参考。

概述

有三个辅助关键字in, from和to
能够 break和continue
语法有三种
(for n in '(1 2 3 4 5 6 7 8 9 10)
  (if (> n 8) (break #f))
  (if (even? n) (continue #f))
  (display n)
  (display " "))
=> 1 3 5 7 #f
(for n from 1 to 100
  (if (> n 10) (break #f))
  (display n)
  (display " "))
=> 1 2 3 4 5 6 7 8 9 10 #f
(for n from 100 99 to 1
  (if (< n 90) (break #f))
  (display n)
  (display " "))
=> 100 99 98 97 96 95 94 93 92 91 90 #f

(define (product nums)
  (define p 1)
  (for n in nums
    (when (zero? n)
      (set! p 0)
      (break #f))
    (set! p (* p n)))
  p)

(product '(1 2 3 0 2)) ;=> 0                                                                                                                          
(product