#Factor , 24
Smart, mathy answer.
[ neg bitnot 9 mod 1 + ]
63 for dumb iterative solution:
[ [ dup 9 > ] [ number>string >array [ 48 - ] map sum ] while ]
Factor , 24
Smart, mathy answer.
[ neg bitnot 9 mod 1 + ]
63 for dumb iterative solution:
[ [ dup 9 > ] [ number>string >array [ 48 - ] map sum ] while ]