Yaltik/hy
2
0
Fork 0
Code Pull Requests Releases Activity

Update true, false -> True, False

Browse Source
This commit is contained in:
Tuukka Turto 2016-11-30 23:45:21 +02:00
parent 269218a8fd
commit 4219faf532
2 changed files with 7 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
hy/contrib/sequences.hy
View File

@ -24,8 +24,7 @@
"initialize a new sequence with a function to compute values"
(setv (. self func) func)
(setv (. self cache) [])
(setv (. self high-water) -1)
nil)
(setv (. self high-water) -1))
--getitem-- (fn [self n]
"get nth item of sequence"
(if (hasattr n "start")
@ -43,7 +42,7 @@
--iter-- (fn [self]
"create iterator for this sequence"
(setv index 0)
(try (while true
(try (while True
(yield (get self index))
(setv index (inc index)))
(except [_ IndexError]
@ -51,7 +50,7 @@
--len-- (fn [self]
"length of the sequence, dangerous for infinite sequences"
(setv index (. self high-water))
(try (while true
(try (while True
(get self index)
(setv index (inc index)))
(except [_ IndexError]

8
tests/native_tests/contrib/sequences.hy
View File

@ -32,7 +32,7 @@
"NATIVE: test indexing sequence"
(defseq shorty [n]
(cond [(< n 10) n]
[true (end-sequence)]))
[True (end-sequence)]))
(setv 0-to-9 (list (range 10)))
(assert (= (get shorty 0)
(get 0-to-9 0))
@ -48,7 +48,7 @@
"NATIVE: test slicing sequence"
(defseq shorty [n]
(cond [(< n 10) n]
[true (end-sequence)]))
[True (end-sequence)]))
(setv 0-to-9 (list (range 10)))
(assert (= (first shorty)
(first 0-to-9))
@ -71,7 +71,7 @@
(defseq fibonacci [n]
(cond [(= n 0) 0]
[(= n 1) 1]
[true (+ (get fibonacci (- n 1))
[True (+ (get fibonacci (- n 1))
(get fibonacci (- n 2)))]))
(assert (= (first fibonacci)
0)
@ -102,7 +102,7 @@
"next possible prime after nth prime"
(inc (get primes (dec n))))
(cond [(= n 0) 2]
[true (do (setv guess (next-possible-prime n))
[True (do (setv guess (next-possible-prime n))
(while (divisible? guess (previous-primes n))
(setv guess (inc guess)))
guess)]))