/oRe./'+Ao
\I*tI&0-R$@/
オンラインでお試しください!
入力は、最初の行の数字と2番目の行の幅で改行で区切る必要があります。
説明
/...
\...@/
これは、順序モードの線形プログラムの通常のフレームワークです。この場合の唯一の問題は次のビットです。
.../...
...&...
これにより、IPは垂直モードでCardinalモードに入り&
、順序モードで再開する前にCardinalモードでのみ実行されます。
ジグザグ制御フローを展開すると、次が得られます。
IRt.&'-A$o*eI/&/0+Ro@
I Read the first line of input (the value) as a string.
R Reverse the string.
t. Split off the last character and duplicate it.
& Fold the next command over this string. This doesn't really do anything,
because the string contains only one character (so folding the next
command is identical to executing it normally).
'- Push "-".
A Set intersection. Gives "-" for negative inputs and "" otherwise.
$o If it's "-", print it, otherwise it must have been a digit which we
leave on the stack.
* Join the digit back onto the number. If the number was negative, this
joins the (absolute value of the) number to an implicit empty string,
doing nothing.
e Push an empty string.
I Read the width W.
/&/ Iterate the next command W times.
0 Append a zero. So we get a string of W zeros on top of the absolute
value of the input number.
+ Superimpose. This takes the character-wise maximum of both strings
and appends extraneous characters from the longer string. Since the
string of zeros can never be larger than the digits in the input,
the input itself will be uneffected, but extraneous zeros are appended,
padding the string to the required length.
R Reverse the result.
o Print it.
@ Terminate the program.
こちらも23バイトの2つの選択肢で、Cardinal H
(abs)を使用して以下を取り除きます-
。
/R.I&0-RoH
\Ie#\'+Ao\@/
/R.H#/.+Xo
\Ie\I&0QRo@/
原則として、これらはより短いコマンドですが&
、スタック上に1文字の文字列がある位置に収まらないため、でスキップする必要があり#
ます。