update README.md

This commit is contained in:
2024-10-17 02:13:26 -04:00
parent f651c62c5c
commit 6f5081568a

View File

@@ -188,11 +188,9 @@ iterate ;x + 1 x 0 10 # => [0 1 2 3 4 5 6 7 8 9]
take 3 [1 2 3 4 5] # => [1 2 3] take 3 [1 2 3 4 5] # => [1 2 3]
:. take'while : pred Any -> Bool ?. x [Any] -> [Any] :. take'while : pred Any -> Bool ?. x [Any] -> [Any]
?? bool x ?? && bool x pred head x
?? pred head x
+ head x take'while 'pred tail x + head x take'while 'pred tail x
empty empty
empty
take'while ;y < y 10 [1 3 5 7 9 11 13 15 16] # => [1 3 5 7 9] take'while ;y < y 10 [1 3 5 7 9 11 13 15 16] # => [1 3 5 7 9]
``` ```