Changeset 432 for to-imperative/trunk/samples/select1.rf
- Timestamp:
- Jan 24, 2003, 6:00:46 PM (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
to-imperative/trunk/samples/select1.rf
r428 r432 1 $use Dos StdIO; //"timer"; 1 //$use Dos StdIO; //"timer"; 2 $use StdIO; 2 3 3 4 $func MkArg eString = ePrefixes; … … 5 6 $func? OneOf (eXs) sX = ; 6 7 7 Main = <PrintLN <Time>>,8 <MkArg '1234567890abc'> :: e.Arg,8 Main = /*<PrintLN <Time>>,*/ 9 <MkArg "1234567890ab"> :: e.Arg, 9 10 <PrintLN e.Arg>, 10 11 <Select () e.Arg> :: e.Res, 11 12 <PrintLN e.Res>, 12 13 //<Timer-BegProc " End ">::t, 13 <PrintLN <Time>>;14 /*<PrintLN <Time>>*/; 14 15 MkArg e.String = * e.Prefixes 15 16 ( ) (e.String) $iter{
Note: See TracChangeset
for help on using the changeset viewer.