10/01/28 15:26:00
>>449
使用言語：tcl
% proc even {n} {expr $n%2==0}
% even 23
0
% even 24
1
10/01/28 15:26:00
>>449
使用言語：tcl
% proc even {n} {expr $n%2==0}
% even 23
0
% even 24
1
10/01/28 15:26:00
>>449
使用言語：tcl
% proc even {n} {expr $n%2==0}
% even 23
0
% even 24
1