Ignore:
Timestamp:
Jul 27, 2006, 4:45:55 PM (14 years ago)
Author:
orlov
Message:
  • Added List.Replicate function.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • to-imperative/trunk/library/List/refal/List.rf

    r1830 r2037  
    33// $Date$
    44
    5 $use Apply Access Arithm;
     5$use Apply Access Arithm Compare;
    66
    77$func Deparen-Term term = expr;
     
    100100  e.selected;
    101101
     102Replicate s.n e.expr =
     103  s.n /*e.list*/ $iter
     104    <"-" s.n 1> e.list e.expr
     105  :: s.n e.list,
     106  <"<=" (s.n) (0)> =
     107  e.list;
     108
    102109/*
    103110 * Returns number of e.expr entries in e.source and e.source without all e.expr's.
Note: See TracChangeset for help on using the changeset viewer.