10/06/25 07:44:06
>>69
使用言語：J
マイナス符号を変換しなくてはいけないのがめんどう。
(9!:11)16 NB.表示桁数を16桁にする
load 'strings'
read=: 1!:1
f=: monad define
".>}:{:@cutopen;._2 toJ (read y) rplc '-';'_'
)
(f <'texta.txt') + f <'textb.txt'
0.04795156435961 0.00109986465384 _0.01250360345645