10/01/07 13:10:38
>>177
使用言語：J
add=:dyad def 'x+y'
mul=:dyad def '(-/x*y),+/y*|.x'
print=:monad def 'smoutput (":y),''i'' '
a=: 1 2
b=: 3 4
print a add b
4 6i
print a mul b
_5 10i
NB.標準サポートの複素数の場合
datatype 1j2
complex
1j2 + 3j4
4j6
1j2 * 3j4
_5j10
10/01/07 13:10:38
>>177
使用言語：J
add=:dyad def 'x+y'
mul=:dyad def '(-/x*y),+/y*|.x'
print=:monad def 'smoutput (":y),''i'' '
a=: 1 2
b=: 3 4
print a add b
4 6i
print a mul b
_5 10i
NB.標準サポートの複素数の場合
datatype 1j2
complex
1j2 + 3j4
4j6
1j2 * 3j4
_5j10