Şemadaki Python aralığının analogu

Question

Şemada ardışık sayılar listesi nasıl oluşturulur?

Python'da 1'den 10'a kadar bir tamsayı listesi oluşturmak range(1,11) olur. Şema için bir eşdeğer var mı?

mzscheme --versionWelcome to Racket v5.2.1.

Edit verir:https://stackoverflow.com/a/7144310/596361 Başına aralığı işlevselliğini uygulamak için, bu kod gereklidir:

#lang racket 
(require srfi/1) 
(iota 5 1) 

Answer 1

Bak (srfi-1'de tanımlandığı gibi) iotaiçin.

Örnek: (iota 10 1), 1'den başlayarak (0 varsayılanı yerine) 10 ardışık tamsayı verir.

iyota aralığında aynı argüman almaz ancak tüm işlevselliği çoğaltır - artan aralıkları, aralığı azalan tek, aralık belirtmek olanağı verilir sınırın ise 0 ile başlayarak. Yerleşik bir şey yoksa

Answer 2

, yazmak için Önemsiz kendi:

(define (range first last) 
    (if (>= first last) 
     '() 
     (cons first (range (+ first 1) last)))) 

Çevrimiçi şeması değerlendirici: Burada

Answer 3

http://eval.ironscheme.net/?id=71 ilk sayı düşük veya bir ise artan bir dizi yapan bir versiyonu yüksekse, azalan aralık:

(define range 
    (lambda (n m) 
    (cond 
     ((= n m) (list n)) 
     (else (cons n (range ((if (< n m) + -) n 1) m)))))) 

Ve burada 1 veya 2 bağımsız değişken alabilen geliştirilmiş bir sürüm; Sadece bir verilirse, o 0'dan verilen numaraya bir dizi yapar:

(define range 
    (lambda (n . m) 
    (let 
     ((n (if (null? m) 0 n)) (m (if (null? m) n (car m)))) 
     (cond 
    ((= n m) (list n)) 
    (else (cons n (range ((if (< n m) + -) n 1) m))))))) 

Answer 4

Sadece bir cevaba ANKUR yorumuna @ yükselen ediyorum. Racket olarak, "menzil içinde" vardır:

#lang racket 

(in-range 7) ;; produces #<stream> 

;; used in a loop: 
(for/list ([i (in-range 7)]) 
    i) 
;; produces (list 0 1 2 3 4 5 6) 


;; and, for the lazy among us: 

(for/list ([i 7]) 
    i) 

;; produces the same 

Ayrıca (negatif dahil) bir alt sınırını, bir artış kabul edebilir, vb

Answer 5

yoktur yerleşik bir Racket içinde range fonksiyonu olduğunu Python'unki gibi davranır.

> (range 10) 
'(0 1 2 3 4 5 6 7 8 9)