Changeset 4011


Ignore:
Timestamp:
Oct 30, 2008, 1:44:38 AM (12 years ago)
Author:
yura
Message:
  • New functions.
File:
1 edited

Legend:

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

    r4008 r4011  
    4646    <Get s.box>;
    4747  };
     48
     49$public $func? Head e.list = t.elem;
     50Head t.elem e.tail = t.elem;
     51
     52$public $func? Tail e.list = e.list;
     53Tail t.elem e.tail = e.tail;
     54
     55$public $func? Init e.list = e.list;
     56Init e.init t.last = e.init;
     57
     58$public $func? Last e.list = t.elem;
     59Last e.init t.last = t.last;
     60
     61$public $func SwapR e.list = e.list;
     62SwapR {
     63  e.init t.last = t.last e.init;
     64  e.list = e.list;
     65};
     66
     67$public $func SwapL e.list = e.list;
     68SwapL {
     69  t.head e.tail = e.tail t.head;
     70  e.list = e.list;
     71};
    4872
    4973$public $func? Map t.func e.list = e.list;
     
    203227  };
    204228
    205 $public $func SwapR e.list = e.list;
    206 SwapR {
    207   e.init t.last = t.last e.init;
    208   e.list = e.list;
    209 };
    210 
    211229//Replicate s.n e.expr =
    212230//  s.n /*e.list*/ $iter
Note: See TracChangeset for help on using the changeset viewer.