[S S S N
_Push_0][S N
S _Duplicate][S N
S _Duplicate][T N
T S _Read_STDIN_as_character][T T T _Retrieve][S S S T S S T N
_Push_9][T S S T _Subtract][S N
S _Duplicate][N
T S S T N
_If_0_Jump_to_Label_TAB][S S S T N
_Push_1][T S S T _Subtract][S N
S _Duplicate][N
T S S N
_If_0_Jump_to_Label_NEWLINE][S S S T S T T S N
_Push_22][T S S T _Subtract][N
T S T N
_If_0_Jump_to_Label_SPACE][N
S T N
_Jump_to_Label_PRINT][N
S S S T N
_Create_Label_TAB][S S S T S S T S T N
_Push_37][N
S T N
_Jump_to_Label_PRINT][N
S S S N
_Create_Label_NEWLINE][S S S T S S S S T N
_Push_33][N
S T N
_Jump_to_Label_PRINT][N
S S T N
_Create_Label_SPACE][S S S T S S S T T S N
_Push_70][N
S S N
_Create_Label_PRINT][T N
S T _Print_as_integer]
Букви S
(пробіл), T
(вкладка) та N
(новий рядок) додаються лише як підкреслення.
[..._some_action]
додано лише як пояснення.
70 використаних пробілів, 37 вкладок та 33 нових рядків.
Зазвичай я використовую створювати етикетки в порядку NSSN
, NSSSN
, NSSTN
, NSSSSN
, NSSSTN
, NSSTSN
, NSSTTN
і т.д. Але так як друк номер , в якому двійковий S=0
/ T=1
використовується впливає на кількість , мені потрібно вивести, я використовував етикетки NSSN
, NSSSN
, NSSTN
, іNSSSTN
замість того , який дав ідеальна кількість пробілів / вкладок для друку з двійковими номерами SSSTSSSSTN
(33; кількість нових рядків), SSSTSSTSTN
(37; кількість вкладок) та SSSTSSSTTSN
(70; кількість пробілів).
Пояснення в псевдокоді:
Character c = STDIN-input as character
If c is a tab:
Print 37
Else if c is a new-line:
Print 33
Else if c is a space:
Print 70
Else
Print 0
Приклад виконання:
Вхід: пробіл
Command Explanation Stack Heap STDIN STDOUT STDERR
SSSN Push 0 [0]
SNS Duplicate top (0) [0,0]
SNS Duplicate top (0) [0,0,0]
TNTS Read STDIN as character [0,0] {0:32} \n
TTT Retrieve [0,32] {0:32}
SSSTSSTN Push 9 [0,32,9] {0:32}
TSST Subtract top two (32-9) [0,23] {0:32}
SNS Duplicate top (23) [0,23,23] {0:32}
NTSSTN If 0: Jump to Label_TAB [0,23] {0:32}
SSSTN Push 1 [0,23,1] {0:32}
TSST Subtract top two (23-1) [0,22] {0:32}
SNS Duplicate top (22) [0,22,22] {0:32}
NTSSN If 0: Jump to Label_NEWLINE [0,22] {0:32}
SSSTSTTSN Push 22 [0,22,22] {0:32}
TSST Subtract top two (22-22) [0,0] {0:32}
NTSTN If 0: Jump to Label_SPACE [0] {0:32}
NSSTN Create Label_SPACE [0] {0:32}
SSSTSSSTTSN Push 70 [0,70] {0:32}
NSTN Jump to Label_PRINT [0,70] {0:32}
NSSN Create Label_PRINT [0,70] {0:32}
TNST Print as integer [0] {0:32} 70
error
Програма зупиняється з помилкою: вихід не визначений.
Спробуйте це в Інтернеті (лише із необробленими пробілами, вкладками та новими рядками).
Введення: вкладка
Натомість STDIN буде \t
( 9
), в цьому випадку він буде 0
при першій If 0
перевірці, перейде до LABEL_TAB
/ NSSSTN
, і натисне та надрукує37
замість нього .
Спробуйте це в Інтернеті (лише із необробленими пробілами, вкладками та новими рядками).
Вхід: новий рядок
Натомість STDIN буде \n
( 10
), у такому випадку він буде 0
під час другої If 0
перевірки, перейде до Label_NEWLINE
/ NSSSN
, а 33
натомість натисне та надрукує .
Спробуйте це в Інтернеті (лише із необробленими пробілами, вкладками та новими рядками).
Вхід: що-небудь ще
Будь-який інший вхідний символ зробить NSTN
(Перейти до Label_PRINT) після третьої If 0
перевірки, надрукувавши той, 0
що все ще був у стеку (який ми дублювали на самому початку).
Спробуйте це в Інтернеті (лише із необробленими пробілами, вкладками та новими рядками).