Changeset 4001


Ignore:
Timestamp:
Oct 27, 2008, 5:24:58 PM (12 years ago)
Author:
yura
Message:
  • No spaces at the end of line,
File:
1 edited

Legend:

Unmodified
Added
Removed
  • to-imperative/trunk/java/refal/refal/plus/List2.rf

    r4000 r4001  
    66
    77$func SimplifyFunction t.func e.arg = s.func e.arg;
    8 SimplifyFunction t.func e.arg = 
     8SimplifyFunction t.func e.arg =
    99  t.func e.arg $iter {
    1010    t.func : (t.func1 e.arg1) = t.func1 e.arg1 e.arg;
     
    1616
    1717$public $func PApply t.func e.arg = t.func;
    18 PApply t.func e.arg = <SimplifyFunction t.func e.arg> :: s.func e.arg, 
     18PApply t.func e.arg = <SimplifyFunction t.func e.arg> :: s.func e.arg,
    1919  {
    2020    e.arg : /* empty */ = s.func;
     
    4141Filter t.func e.list = <Map (&FilterHelp t.func) e.list>;
    4242
    43 $public $func Split t.func e.list = (e.true_list) (e.false_list); 
     43$public $func Split t.func e.list = (e.true_list) (e.false_list);
    4444Split t.func e.list =
    4545  () () e.list $iter {
     
    9898//};
    9999
    100 $public $func Intersperse (e.sep) e.list = e.list; 
     100$public $func Intersperse (e.sep) e.list = e.list;
    101101Intersperse {
    102102  (e.sep) /*empty*/ = /*empty*/;
     
    129129Concat e.lists = <Map &ConcatHelp e.lists>;
    130130
    131 $public $func? EqTerms t.term t.term = ; 
     131$public $func? EqTerms t.term t.term = ;
    132132EqTerms t1 t1;
    133133
     
    186186};
    187187
    188 $public $func CompareTerms t.term t.term = s.cmp; 
    189 CompareTerms t.term1 t.term2 = <Compare (t.term1) (t.term2)>; 
    190 
    191 $public $func Sort e.list = e.list; 
     188$public $func CompareTerms t.term t.term = s.cmp;
     189CompareTerms t.term1 t.term2 = <Compare (t.term1) (t.term2)>;
     190
     191$public $func Sort e.list = e.list;
    192192Sort e.list = <SortBy &CompareTerms e.list>;
    193193
    194 $public $func SortBy t.cmpTerms e.list = e.list; 
     194$public $func SortBy t.cmpTerms e.list = e.list;
    195195SortBy t.cmpTerms e.list =
    196196  <Div <Length e.list> 2> : {
Note: See TracChangeset for help on using the changeset viewer.