32 lines
731 B
Turing
32 lines
731 B
Turing
$$ MODE TUSCRIPT
|
|
MODE DATA
|
|
$$ numbers=*
|
|
0, 1, 2, 4, 6, 7, 8, 11, 12, 14,
|
|
15, 16, 17, 18, 19, 20, 21, 22, 23, 24,
|
|
25, 27, 28, 29, 30, 31, 32, 33, 35, 36,
|
|
37, 38, 39
|
|
$$ MODE TUSCRIPT
|
|
numbers=EXCHANGE (numbers,":,><<> :':")
|
|
unrangednrs=JOIN (numbers,"")
|
|
|
|
help = APPEND (unrangednrs, "999999999")
|
|
rest = REMOVE (help, 1, n_1)
|
|
n_2 = n_1, n_3= n_2 + 1,rangednrs= ""
|
|
LOOP n= rest
|
|
IF (n!=n_3) THEN
|
|
rangednrs = APPEND (rangednrs, n_1)
|
|
IF (n_1!=n_2) THEN
|
|
range=n_1+1
|
|
IF (range==n_2) THEN
|
|
rangednrs = APPEND (rangednrs,n_2)
|
|
ELSE
|
|
rangednrs = CONCAT (rangednrs, "-", n_2)
|
|
ENDIF
|
|
ENDIF
|
|
n_1 = n
|
|
ENDIF
|
|
n_2 = n, n_3 = n_2 + 1
|
|
ENDLOOP
|
|
rangednrs=EXCHANGE (rangednrs,":':,:")
|
|
PRINT rangednrs
|