制御構文・システム関数・ユ－ティリティ

Ｊはリリ－ス2から制御構文を採用した。制御構文は、明示的定義で 利用できる。

制御構文は他の言語とあまり変わらない。

for_abc は　for_ctr のようにして用いるとcounter文が省略できる。

• if
  • if.A do. B end．
  • Aが「0」でない“真”のときにBを実行する。
  • if.A do.B1 else. B2 end.
  • Aが「0」でない“真”のときにB1を実行し、「0」のときには B2を実行する。
  • if.A do.B1 elseif.Ｃ1 do.B2
    elseif.Ｃ2 do.B3 end．

    Aが「0」でない(真の)ときB1を実行し、Aが「0」でC1が「0」でないときに B2を実行し、さらにC1が「0」でC2も「0」のときB3を実行する。

zero=: 3 : 0
 if. 0=y do. 'zero'
  else. 'nonzero' end.
)

   zero 3
nonzero

   zero 0
zero

    pzm=: 3 : 0               
 if. y=0 do.":0 
 elseif. y>0 do.":1    
 elseif. y<0 do.":_1 end. 
 )                     

   pzm (L:0) 3 ; 0 ; _3 
+-+-+--+
|1|0|_1|
+-+-+--+

while
• while. A do.B end．

  Aが「0」でない(真である)限りBを実行する。

• whilst. A do.B end．

  まずBを実行し、Aが「0」でない(真である)限りBを実行する。

    fact=:3 : 0               
f=.n=.1+y                
 while. n>1 do. f=.f*n=.n-1 end.      
 )                     
 

   fact ("0) i.5
1 2 6 24 120

!i.6   
1 1 2 6 24 120

    box=:3 : 0               
b=.'' [ n=.>:y              
 whilst. n>1 do. 
 b=.b,


   box 4
+-+---+-----+-------+
|0|0 1|0 1 2|0 1 2 3|
+-+---+-----+-------+

for
• try. B1 catch. B2 end．

  B1を実行し、エラーがあればB2を実行する。

• for. B1 do.B2 end．

  「B1」の回数だけ「B2」を実行する。

    sum=:3 : 0               
 try. +/1+i.0>.y  
 catch.'miss!' end.    
 )                     

   sum 10
55

   sum 'a'
miss!

    fact1=:3 : 0              
f=.n=.((]>:0:)*1:>.|)y           
 for.i.<:n do. f=.f*n=.<:n end.      
 )                     

   fact1 ("0) i.6
1 1 2 6 24 120

    iota=:3 : 0               
s=.0:`$@.(]=0:) y             
 for_j. i.|y do.             
   if.j=0 do. continue. end.       
   s=.s,j                 
 end.                   
|.^:(_1=*y)s               
)

   iota 5
0 1 2 3 4
   iota _5
4 3 2 1 0
 iota 0