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

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

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

550:デフォルトの名無しさん
 10/02/01 13:55:30 
>>546 は >>536 に既出でした。>>536 の方を使ってください。

551:デフォルトの名無しさん
 10/02/01 14:35:38 
>>539 
使用言語：R 
 
> f <- function(a,b) c(a,0)+c(0,b) 
 
> f(c(1,2,3),c(7,8,9)) 
[1]  1  9 11  9

552:デフォルトの名無しさん
 10/02/01 14:37:21 
>>539 
使用言語：maxima 
 
(%i3) f(a,b):=endcons(0,a)+cons(0,b); 
(%o3)                f(a, b) := endcons(0, a) + cons(0, b) 
(%i4) f([1,2,3],[7,8,9]); 
(%o4)                            [1, 9, 11, 9]

553:デフォルトの名無しさん
 10/02/01 14:54:28 
>>539 
使用言語：Scilab 
 
-->deff('r=f(a,b)','r=[a,0]+[0,b]') 
  
-->f(1:3,7:9) 
 ans  = 
  
    1.    9.    11.    9.

554:デフォルトの名無しさん
 10/02/01 15:54:09 
>>547 
% Prolog 
 
program :- 
　　user_parameters([FileIn,FileOut]), 
　　open(FileIn,read,Input,[type(binary)]), 
　　open(FileOut,write,Output), 
　　get_byte(Input,C), 
　　free1(0,Input,Output,C), 
　　close(Output), 
　　close(Input). 
 
free1(_,_,_,-1) :- !. 
free1(16,Input,Output,C) :- 
　　write(Output,'\n'), 
　　free1(0,Input,Output,C),!. 
free1(M,Input,Output,C) :- 
　　free1(M,Input,Output,C) :- 
　　Ｎ進数(16,C,A), 
　　write(Output,A), 
　　get_byte(Input,C2), 
　　M2 is M + 1, 
　　free1(M2,Input,Output,C2). 
 
% Ｎ進数/3の定義は http://nojiriko.asia/prolog/j68_493.html 参照

次ページ