いろんな言語で宿題スレ第三編

いろんな言語で宿題スレ第三編 at TECH

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

700:デフォルトの名無しさん
 10/02/13 02:10:11 
>>696 
使用言語：J 
エラーチェックに苦労してなんとも悲惨なことになってしまった。データnをn番目の素数で表して 
変数aに掛けていき、最後に因数分解（ここで勝手にソートしてくれた）して素数からnに変換。 
 
f=: monad define 
  a=.1 
  label_b. smoutput '(1-10)?' select. ".(1!:1)1 
  case. 1 do. a=.a*p:1 case. 2 do. a=.a*p:2 case. 3 do. a=.a*p:3 case. 4 do. a=.a*p:4 case. 5 do. a=.a*p:5  
  case. 6 do. a=.a*p:6 case. 7 do. a=.a*p:7 case. 8 do. a=.a*p:8 case. 9 do. a=.a*p:9 case. 10 do. a=.a*p:10  
  case. do. goto_b. 
  end. 
  label_c. smoutput '(1-10)?' select. ".(1!:1)1 
  case. 1 do. a=.a*p:1 case. 2 do. a=.a*p:2 case. 3 do. a=.a*p:3 case. 4 do. a=.a*p:4 case. 5 do. a=.a*p:5  
  case. 6 do. a=.a*p:6 case. 7 do. a=.a*p:7 case. 8 do. a=.a*p:8 case. 9 do. a=.a*p:9 case. 10 do. a=.a*p:10  
  case. do. goto_c. 
  end. 
  label_d. smoutput '(1-10)?' select. ".(1!:1)1 
  case. 1 do. a=.a*p:1 case. 2 do. a=.a*p:2 case. 3 do. a=.a*p:3 case. 4 do. a=.a*p:4 case. 5 do. a=.a*p:5  
  case. 6 do. a=.a*p:6 case. 7 do. a=.a*p:7 case. 8 do. a=.a*p:8 case. 9 do. a=.a*p:9 case. 10 do. a=.a*p:10  
  case. do. goto_d. 
  end. 
  smoutput _1 p:q:a  
)

次ページ