Return to Answer

Commonmark migration

edited Jun 17, 2020 at 9:04

edited Jun 17, 2020 at 9:04

#Mathematica, ~~(削除) 57 (削除ここまで)~~ 48 bytes

Mathematica, (削除) 57 (削除ここまで) 48 bytes

Saved 9 bytes thanks to @2012rcampion .

IntegerString[#!/#2^#!~IntegerExponent~#2,##2]&

#Mathematica, ~~(削除) 57 (削除ここまで)~~ 48 bytes

Saved 9 bytes thanks to @2012rcampion .

IntegerString[#!/#2^#!~IntegerExponent~#2,##2]&

Saved 9 bytes thanks to @2012rcampion .

IntegerString[#!/#2^#!~IntegerExponent~#2,##2]&

added 43 characters in body

edited May 1, 2015 at 3:01

edited May 1, 2015 at 3:01

#Mathematica, 57~~(削除) 57 (削除ここまで)~~ 48 bytes

Saved 9 bytes thanks to @2012rcampion .

Mod[#IntegerString[#!/#2^IntegerExponent[##2^#!,#2]~IntegerExponent~#2,#2^#3]~IntegerString~#2&##2]&

#Mathematica, 57 bytes

Mod[#!/#2^IntegerExponent[#!,#2],#2^#3]~IntegerString~#2&

#Mathematica, ~~(削除) 57 (削除ここまで)~~ 48 bytes

Saved 9 bytes thanks to @2012rcampion .

IntegerString[#!/#2^#!~IntegerExponent~#2,##2]&

answered Apr 30, 2015 at 14:24

answered Apr 30, 2015 at 14:24

#Mathematica, 57 bytes

Mod[#!/#2^IntegerExponent[#!,#2],#2^#3]~IntegerString~#2&