Return to Answer

Commonmark migration

edited Jun 17, 2020 at 9:04

Mathematica, (削除) 73 (削除ここまで) 58 bytes

#~StringRotateRight~Max[FromDigits/@StringSplit[#<>#,"#"]]&

#Mathematica, ~~(削除) 73 (削除ここまで)~~ 58 bytes# #~StringRotateRight~Max[FromDigits/@StringSplit[#<>#,"#"]]& MuchMuch byte. 15 bytes saved thanks to IPoiler

#Mathematica, ~~(削除) 73 (削除ここまで)~~ 58 bytes# #~StringRotateRight~Max[FromDigits/@StringSplit[#<>#,"#"]]& Much byte. 15 bytes saved thanks to IPoiler

Mathematica, (削除) 73 (削除ここまで) 58 bytes

#~StringRotateRight~Max[FromDigits/@StringSplit[#<>#,"#"]]&

Much byte. 15 bytes saved thanks to IPoiler

added 37 characters in body

Source Link

edited Feb 28, 2016 at 4:16

CalculatorFeline

edited Feb 28, 2016 at 4:16

CalculatorFeline

2.8k
17
31

#Mathematica, 73~~(削除) 73 (削除ここまで)~~ 58 bytes# ""<>RotateRight[Characters@#,Max[FromDigits#~StringRotateRight~Max[FromDigits/@StringSplit[#<>#,"#"->""]]]&"#"]]& Much byte.15bytessavedthankstoIPoiler

#Mathematica, 73 bytes# ""<>RotateRight[Characters@#,Max[FromDigits/@StringSplit[#<>#,"#"->""]]]& Much byte.

#Mathematica, ~~(削除) 73 (削除ここまで)~~ 58 bytes# #~StringRotateRight~Max[FromDigits/@StringSplit[#<>#,"#"]]& Much byte.15bytessavedthankstoIPoiler

Source Link

answered Feb 24, 2016 at 22:06

CalculatorFeline

answered Feb 24, 2016 at 22:06

CalculatorFeline

2.8k
17
31

#Mathematica, 73 bytes# ""<>RotateRight[Characters@#,Max[FromDigits/@StringSplit[#<>#,"#"->""]]]& Much byte.