10/02/05 10:45:47
>>515
使用言語：J
同じ値がでないステータスの生成なので引き分けはない。
f=:dyad define
'xs ys'=. 2?10000
smoutput x,' status ',":xs
smoutput y,' status ',":ys
smoutput (;(xs<ys){x;y),' win'
)
'scala' f 'clojrure'
scala status 8546
clojrure status 8515
scala win
10/02/05 10:45:47
>>515
使用言語：J
同じ値がでないステータスの生成なので引き分けはない。
f=:dyad define
'xs ys'=. 2?10000
smoutput x,' status ',":xs
smoutput y,' status ',":ys
smoutput (;(xs<ys){x;y),' win'
)
'scala' f 'clojrure'
scala status 8546
clojrure status 8515
scala win