7 lines
262 B
Text
7 lines
262 B
Text
ClearAll[Fairshare]
|
|
Fairshare[n_List, b_Integer : 2] := Fairshare[#, b] & /@ n
|
|
Fairshare[n_Integer, b_Integer : 2] := Mod[Total[IntegerDigits[n, b]], b]
|
|
Fairshare[Range[0, 24], 2]
|
|
Fairshare[Range[0, 24], 3]
|
|
Fairshare[Range[0, 24], 5]
|
|
Fairshare[Range[0, 24], 11]
|