Commonmark migration
Source Link

SmileBASIC, 100 98 bytes

DEF S N,T?N
WHILE""<N
C=C+1C$=SHIFT(N)IF C$!=(N+@L)[0]THEN O$=O$+STR$(C)+C$C=0
WEND
S O$,T-T/T
END

#SmileBASIC, 100 98 bytes DEF S N,T?N WHILE""<N C=C+1C$=SHIFT(N)IF C$!=(N+@L)[0]THEN O$=O$+STR$(C)+C$C=0 WEND S O$,T-T/T END PrintsPrints out all the steps. T/T is there to end the program when T is 0.

#SmileBASIC, 100 98 bytes DEF S N,T?N WHILE""<N C=C+1C$=SHIFT(N)IF C$!=(N+@L)[0]THEN O$=O$+STR$(C)+C$C=0 WEND S O$,T-T/T END Prints out all the steps. T/T is there to end the program when T is 0.

SmileBASIC, 100 98 bytes

DEF S N,T?N
WHILE""<N
C=C+1C$=SHIFT(N)IF C$!=(N+@L)[0]THEN O$=O$+STR$(C)+C$C=0
WEND
S O$,T-T/T
END

Prints out all the steps. T/T is there to end the program when T is 0.

added 13 characters in body
Source Link
12Me21
  • 6.4k
  • 1
  • 19
  • 39

#SmileBASIC, 100100 98 bytes DEF S N,T?N WHILE LEN(N)WHILE""<N C=C+1C$=SHIFT(N)IF C$!=(N+@L)[0]THEN O$=O$+STR$(C)+C$C=0 WEND S O$,T-T/T END Prints out all the steps. T/T is there to end the program when T is 0.

#SmileBASIC, 100 bytes DEF S N,T?N WHILE LEN(N)C=C+1C$=SHIFT(N)IF C$!=(N+@L)[0]THEN O$=O$+STR$(C)+C$C=0 WEND S O$,T-T/T END Prints out all the steps. T/T is there to end the program when T is 0.

#SmileBASIC, 100 98 bytes DEF S N,T?N WHILE""<N C=C+1C$=SHIFT(N)IF C$!=(N+@L)[0]THEN O$=O$+STR$(C)+C$C=0 WEND S O$,T-T/T END Prints out all the steps. T/T is there to end the program when T is 0.

Source Link
12Me21
  • 6.4k
  • 1
  • 19
  • 39

#SmileBASIC, 100 bytes DEF S N,T?N WHILE LEN(N)C=C+1C$=SHIFT(N)IF C$!=(N+@L)[0]THEN O$=O$+STR$(C)+C$C=0 WEND S O$,T-T/T END Prints out all the steps. T/T is there to end the program when T is 0.