###old version, 243 bytes:
old version, 243 bytes:
###old version, 243 bytes:
old version, 243 bytes:
DEFINE('D(A)') ;* function definition
M =INPUT ;* read input
N =INPUT ;* read input
OUTPUT =EQ(D(M) * D(N),D(M * N)) 1 :(END) ;* if D(M)*D(N)==D(M*N),
;* print 1 else print nothing. Goto End
D A LEN(1) . X REM . A :F(RETURN) ;* function body
D =D + X :(D) ;* add X to D
END
DEFINE('D(A)') ;* function definition
M =INPUT ;* read input
N =INPUT ;* read input
OUTPUT =EQ(D(M) * D(N),D(M * N)) 1 :(END) ;* if D(M)*D(N)==D(M*N),
;* print 1 else print nothing. Goto End
D A LEN(1) . X REM . A :F(RETURN) ;* function body
D =D + X :(D) ;* add X to D
END
SNOBOL4 (CSNOBOL4), (削除) 268 (削除ここまで) (削除) 264 (削除ここまで) (削除) 247 (削除ここまで) (削除) 246 (削除ここまで) 243(削除) 243 (削除ここまで) 131 bytes
DEFINE('D(A)')
M =INPUT
N =INPUT
OUTPUT =EQ(D(M) * D(N),D(M * N)) 1 :(END)
D A LEN(1) . X REM . A :F(RETURN)
D =D + X :(D)
END
Nice, now my byte countTry it online!
Ports the approach by Nitrodon . I think this is the first time I've ever defined a perfect power of 3!function in SNOBOL, D for digit sum.
###old version, 243 bytes:
SNOBOL4 (CSNOBOL4), (削除) 268 (削除ここまで) (削除) 264 (削除ここまで) (削除) 247 (削除ここまで) (削除) 246 (削除ここまで) 243 bytes
Nice, now my byte count is a perfect power of 3!
SNOBOL4 (CSNOBOL4), (削除) 268 (削除ここまで) (削除) 264 (削除ここまで) (削除) 247 (削除ここまで) (削除) 246 (削除ここまで) (削除) 243 (削除ここまで) 131 bytes
DEFINE('D(A)')
M =INPUT
N =INPUT
OUTPUT =EQ(D(M) * D(N),D(M * N)) 1 :(END)
D A LEN(1) . X REM . A :F(RETURN)
D =D + X :(D)
END
Ports the approach by Nitrodon . I think this is the first time I've ever defined a function in SNOBOL, D for digit sum.
###old version, 243 bytes: