steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

vocab rename

matthew.willis 2006-07-22 21:50:36 +00:00
parent 23192d8aec
commit 01fa073af5
3 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
contrib/parser-combinators/lazy-examples.factor
View File

@ -22,8 +22,9 @@
! WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
! OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
! ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
USING: lazy-lists math kernel sequences test ;
IN: lazy-examples
USING: lazy math kernel sequences ;
: naturals 0 lfrom ;
: positves 1 lfrom ;
@ -32,7 +33,7 @@ USING: lazy math kernel sequences ;
: powers-of-2 1 [ 2 * ] lfrom-by ;
: ones 1 [ ] lfrom-by ;
: squares naturals [ dup * ] lmap ;
: first-five-squares 5 squares ltake ;
: first-five-squares 5 squares ltake list>array ;
: divisible-by? ( a b -- bool )
#! Return true if a is divisible by b
@ -44,4 +45,4 @@ USING: lazy math kernel sequences ;
: primes 2 lfrom [ filter-multiples ] lapply ;
: first-ten-primes 10 primes ltake list>array ;
: first-ten-primes 10 primes ltake list>array ;

5
contrib/parser-combinators/lazy-tests.factor
View File

@ -21,9 +21,8 @@
! OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
! ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
USING: test kernel math io ;
IN: lazy
USING: lazy-lists test kernel math io ;
IN: temporary
[ t ] [ nil nil? ] unit-test
[ 5 ] [ 5 lunit car ] unit-test

3
contrib/parser-combinators/lazy.factor
View File

@ -22,8 +22,9 @@
! WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
! OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
! ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
IN: lazy
USING: kernel sequences math vectors arrays namespaces ;
IN: lazy-lists
TUPLE: promise quot forced? value ;