my &golf = {sub f(\i){my \n=first i%%*,2..^i;n??[n,|f i/n]!!|i} $_>.&f>1&&.comb.sum==.&f.comb.sum} say golf 18; say golf 22; say golf 13; say golf 666; say golf -265; say golf 0; say golf 1; # say golf 4937775; # This test-case is too slow for the online evaluator