Revision 74

Commentary Code Result
  #clock $;
#clock %** $;		 2003/04/17 15:48:19.125
Clock[I105R1C1:F]2003/04/17 15:48:19.125
  #clock => c;
c *-> 3 %**$;		 Clock[I189R1C3:F]
2003/04/17 15:50:54.749
2003/04/17 15:50:54.749
2003/04/17 15:50:54.749
  #clock =>c;
:for(1..1e4){};
c:lap $;		 0.411
  #clock =>c;
'<1> '(c)$;
'<2> '(c+1) $;
'<3> '(1/24+c) $;
'<4> '(1/24/60+c) $;
'<5> '(1/24/60/60+c) $;
'<6> '(1/24/60/60/1000+c) $;

<1> 2003/04/17 16:55:46.335
<2> 2003/04/18 16:55:46.335
<3> 2003/04/17 17:55:46.335
<4> 2003/04/17 16:56:46.335
<5> 2003/04/17 16:55:47.335
<6> 2003/04/17 16:55:46.336
  #clock =>c;
'<1> '(c)$;
'<2> '(1-c-) $;
'<3> '(c-(1/24)) $;
'<4> '(c-(1/24/60)) $;
'<5> '(c-(1/24/60/60)) $;
'<6> '(c-(1/24/60/60/1000)) $; 

<1> 2003/04/17 17:05:42.782
<2> 2003/04/16 17:05:42.782
<3> 2003/04/17 16:05:42.782
<4> 2003/04/17 17:04:42.782
<5> 2003/04/17 17:05:41.782
<6> 2003/04/17 17:05:42.781
  #clock =>c;
1 24 60 60 1000/* / +c :seq %**$;		 Seq[I103R2C5T:K]:
[1]Num[I104R1C8:I]2003 4 19 15 40 46 965 7
[2]Num[I105R1C8:I]2003 4 18 16 40 46 965 6
[3]Num[I106R1C8:I]2003 4 18 15 41 46 965 6
[4]Num[I107R1C8:I]2003 4 18 15 40 47 965 6
[5]Num[I108R1C8:I]2003 4 18 15 40 46 966 6
  1965 6 30 #clock $;
0 0 0 10 11 12 13 #clock$;		 1965/06/30 00:00:00.000
1899/12/30 10:11:12.013
  1..5+0.0 #clock =>c; c[2..4]$ 1900/01/01 00:00:00.000
1900/01/02 00:00:00.000
1900/01/03 00:00:00.000
  $$ :for (:@&);
$$ :if (:?); :elseIf (::?); :else (::);
'<1>'$;
:for(10 30 20[.x]){'x of ' x =>was;
  :if(x=10){'is ten'=>x;}
  :ElseIf(x=20){'is twenty'=>x;}
  :Else{'not ten or twenty'=>x;};
  was ' ' x %*
  } %**$;

'<2>'$;
:@&(10 30 20[.x]){'x of ' x =>was;
  :?(x=10){'is ten'=>x;}
  ::?(x=20){'is twenty'=>x;}
  ::{'not ten or twenty'=>x;};
  was ' ' x %*
  },, $;

'<3>'$;
:for(10 30 20[.x]){'x of ' x =>was;
  :?(x=10){'is ten'=>x;}
  :ElseIf(x=20){'is twenty'=>x;}
  ::{'not ten or twenty'=>x;};
  was ' ' x %*
  },,\ $;		 <1>
Seq[I664R1C3T:K]:
[1]String[I914R1C14:C]
   x of 10 is ten
[2]String[I210R1C25:C]
   x of 30 not ten or twenty
[3]String[I487R1C17:C]
   x of 20 is twenty
<2>
x of 10 is ten x of 30 not ten or twenty x of 20 is twenty
<3>
x of 10 is ten
x of 30 not ten or twenty
x of 20 is twenty
 
$$ :while (:??)
0=>x;
:??(:?(x%3=0){'at 'x$;};x<6){
  'bumping x from 'x' to '(x+1=>x)%* } %**		 at 0
at 3
at 6
Result:
Seq[I891R1C6T:K]:
[1]String[I161R1C21:C]bumping x from 0 to 1
[2]String[I383R1C21:C]bumping x from 1 to 2
[3]String[I605R1C21:C]bumping x from 2 to 3
[4]String[I865R1C21:C]bumping x from 3 to 4
[5]String[I87R1C21:C]bumping x from 4 to 5
[6]String[I309R1C21:C]bumping x from 5 to 6 
  10 => a.typec;
a.typec $;
a:typec $;
a.typec:typec $;
10
CV
Num
  3` @& (` #)%** Seq[I222R1C6T:K]:
[1]Num[I248R1C1:I]1
[2]Num[I274R1C1:I]2
[3]Num[I300R1C1:I]3