Changeset 3475


Ignore:
Timestamp:
Mar 10, 2008, 7:04:11 PM (13 years ago)
Author:
orlov
Message:
  • Reverted to non-threaded version of perm sample.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • to-imperative/trunk/samples/perm.rf

    r2787 r3475  
    1 $use StdIO Box Arithm Convert System;
     1$use StdIO;
    22
    33$func Perm (e) (e) = ;
    44
    5 $box Count;
    65Perm (e1) (e2) =
    76{
     
    1110      $fail;
    1211    =
    13       //<PrintLN e1>
    14         <Get &Count> : s.inc,
    15                   <Store &Count <Add s.inc 1>>;
     12      <PrintLN e1>
    1613    ;
    1714  };;
    1815};
    1916
    20 Main = <Store &Count 0>,
    21         <ToInt <Arg 1>> :: s.listSize,
    22         s.listSize $iter e.list s.count <Sub s.count 1> :: e.list s.count, s.count : 0 =
    23         <Perm () (e.list)>,
    24         <PrintLn <Get &Count>>;
     17Main = <Perm () ('12345')>;
Note: See TracChangeset for help on using the changeset viewer.