Я заметил, что в определенной игре был специфический счетчик жизней, который вместо того, чтобы останавливаться 999, получил новую цифру - следующий номер был короной сто или 👑00. После того, как 👑99вышел коронные сто crownty ( 👑👑0) и последний номер, после того, как 👑👑9была краун сто crownty корона или 👑👑👑, что было бы 1110 в десятичной системе .

Ваша задача - написать программу или функцию, которая выводит этот счетчик.

Учитывая целое число из диапазона [0,1110](включительно на обоих концах), выведите трехсимвольную строку где

• каждый персонаж из списка 0123456789👑
• корона (👑) может отображаться только как крайний левый символ или если слева от него есть корона
• когда это число читается как десятичное число, но корона считается как 10, вы получаете исходное число

Контрольные примеры

   0 → "000"
  15 → "015"
 179 → "179"
 999 → "999"
1000 → "👑00"
1097 → "👑97"
1100 → "👑👑0"
1108 → "👑👑8"
1110 → "👑👑👑"

Вы можете использовать любой не десятичный символ вместо короны. Чтобы поощрить красивую печать, символ короны (последовательность байтов UTF8 "\ 240 \ 159 \ 145 \ 145") считается одним байтом вместо четырех. Ваша программа не должна работать для чисел вне допустимого диапазона.

Это код-гольф , поэтому самый короткий ответ, измеряемый в байтах, выигрывает!

05AB1E , 20 18 байт

₄‹i₄+¦ëTð.;„1 „  :

Использует места для коронок.

Попробуйте онлайн или проверьте все контрольные примеры .

Объяснение:

₄‹i               # If the (implicit) input is smaller than 1000:
   ₄+             #  Add 1000 to the (implicit) input
     ¦            #  And remove the leading 1 (so the leading zeros are added)
                  #   i.e. 17 → 1017 → "017"
  ë               # Else:
   Tð.;           #  Replace the first "10" with a space " "
                  #   i.e. 1010 → " 10"
                  #   i.e. 1101 → "1 1"
                  #   i.e. 1110 → "11 "
       „1 „  :    #  Replace every "1 " with "  " (until it no longer changes)
                  #   i.e. " 10" → " 10"
                  #   i.e. "1 1" → "  1"
                  #   i.e. "11 " → "   "

JavaScript (Node.js) , 50 байт

f=(n,p=1e3)=>n<p?(n+p+'').slice(1):'#'+f(n-p,p/10)

Попробуйте онлайн!

TIO был основан на ответе Арно. Показать 👑 как #.

JavaScript (ES6),  62 46  44 байта

Сохранено 2 байта благодаря @nwellnhof

Выводит короны как xперсонажи.

n=>(n+1e4+'').replace(/1+0/,'xxx').slice(-3)

Попробуйте онлайн!

Как?

$10000$/1+0/xxx

Примеры:

$$\begin{align}&0 &\rightarrow &\text{ "}\color{red}{\text{10}}\text{000"} &\rightarrow &\text{ "xxx000"} &\rightarrow &\text{ "000"}\\ &123 &\rightarrow &\text{ "}\color{red}{\text{10}}\text{123"} &\rightarrow &\text{ "xxx123"} &\rightarrow &\text{ "123"}\\ &1023 &\rightarrow &\text{ "}\color{red}{\text{110}}\text{23"} &\rightarrow &\text{ "xxx23"} &\rightarrow &\text{ "x23"}\\ &1103 &\rightarrow &\text{ "}\color{red}{\text{1110}}\text{3"} &\rightarrow &\text{ "xxx3"} &\rightarrow &\text{ "xx3"}\\ &1110 &\rightarrow &\text{ "}\color{red}{\text{11110}}\text{"} &\rightarrow &\text{ "xxx"} &\rightarrow &\text{ "xxx"} \end{align}$$

Язык программирования Шекспира , 763 692 690 689 683 байта

,.Ajax,.Ford,.Page,.Act I:.Scene I:.[Enter Ajax and Ford]Ford:Listen tothy!Ajax:You big big cat.Scene V:.Ajax:Remember the remainder of the quotient betweenI twice the sum ofa cat a big big cat.Ford:You be the quotient betweenyou twice the sum ofa cat a big big cat.Ajax:You be the sum ofyou a pig.Be you nicer zero?If solet usScene V.Ford:You big big cat.[Exit Ajax][Enter Page]Page:Recall.Ford:You be I.Scene X:.Page:Recall.Am I nicer zero?If notopen heart.If notlet usScene L.Ford:You big big big big big cat.Speak thy.Am I worse a cat?If soyou zero.Scene L:.[Exit Page][Enter Ajax]Ford:You be the sum ofyou a pig.Is you nicer a cat?[Exit Ajax][Enter Page]Ford:If solet usScene X.

Попробуйте онлайн!

Использует " "вместо коронок. По стоимости еще 4 байта это можно изменить, чтобы вместо него отображался «видимый» символ.

Объяснение:

,.Ajax,.Ford,.Page,.Act I:.Scene I:.[Enter Ajax and Ford]

    Boilerplate, introducing the characters.

Ford:Listen tothy!

    Input a value to Ajax.

Ajax:You big big cat.

    Set Ford's value to 4 (we will be pushing 4 digits from Ajax onto Ford's personal stack).

Scene V:.Ajax:Remember the remainder of the quotient betweenI twice the sum ofa cat a big big cat.Ford:You be the quotient betweenyou twice the sum ofa cat a big big cat.

    DIGIT-PUSHING LOOP: Push Ajax's last digit onto Ford's stack; divide Ajax by 10.

Ajax:You be the sum ofyou a pig.Be you nicer zero?If solet usScene V.

    Decrement Ford; loop until Ford is 0.

Ford:You big big cat.

    Set Ajax's value to 4 (we will pop 3 digits from Ford's stack in the next loop).

[Exit Ajax][Enter Page]Page:Recall.Ford:You be I.

    Pop the top value off Ford's stack, and store that into Page.
    Here, Page will contain 0 if there are no crowns to be drawn,
    and 1 if there are crowns to be drawn.

Scene X:.Page:Recall.Am I nicer zero?If notopen heart.If notlet usScene L.

    DIGIT-DRAWING LOOP: Pop the top value off of Ford's stack and set Ford equal to that value.
    If there are no crowns to be drawn, output Ford's literal value here, and skip the crown-drawing section.

Ford:You big big big big big cat.Speak thy.Am I worse a cat?If soyou zero.

    Draw crown.
    If we are drawing crowns, and Ford contains 0 here, then we are now done drawing crowns, and thus we store 0 into Page.
    (Put in one more "big" for the crown to look like an @ symbol.)

Scene L:.[Exit Page][Enter Ajax]Ford:You be the sum ofyou a pig.Is you nicer a cat?[Exit Ajax][Enter Page]Ford:If solet usScene X.

    Decrement Ajax; loop until Ajax is 1 (i.e. 3 times).

Python 2 , 53 байта

Снимаю шляпу перед Арнаулдом за -22 байта . Хотя рекурсия все еще выигрывает.

lambda k:re.sub("1+0","CCC",`k+10000`)[-3:]
import re

Попробуйте онлайн!

Python 2 , 51 байт

Вместо этого он реализует рекурсивный метод tsh . Сохранено 2 байта благодаря ovs .

f=lambda n,p=1000:n/p and'C'+f(n-p,p/10)or`n+p`[1:]

Попробуйте онлайн!

Python 2 , 52 байта

lambda n:['%03d'%n,'%3s'%`n`.lstrip('1')[1:]][n>999]

Попробуйте онлайн!

Сетчатка 0.8.2 , 41 байт

\b((.)|..)\b
$#2$*00$&
T`d`_#`(?=....)1+0

Попробуйте онлайн! Использует #s вместо 👑s. Ссылка включает в себя тестовые случаи. Объяснение:

\b((.)|..)\b
$#2$*00$&

Pad 1- и 2-значные номера до трех цифр.

T`d`_#`(?=....)1+0

Измените первые 1s четырехзначных чисел на #s и удалите следующий 0.

Желе , 19 байт - 0 = 19

<ȷ¬ȧDi0ɓ⁶ẋ⁹Ḋ;+ȷDḊṫʋ

Полная программа печати результата с использованием пробела в качестве короны.
(В качестве монадической ссылки получен смешанный список целых цифр и пробелов)

Попробуйте онлайн! Или посмотрите набор тестов .

... может быть, рекурсивная реализация будет короче.

Как?

<ȷ¬ȧDi0ɓ⁶ẋ⁹Ḋ;+ȷDḊṫʋ - Main Link: integer, N    e.g. 1010       or   10
 ȷ                  - literal 1000                  1000            1000
<                   - less than?                    0               1
  ¬                 - logical not                   1               0
    D               - to decimal list               [1,0,1,0]       [1,0]
   ȧ                - logical and                   [1,0,1,0]       0
      0             - literal zero                  0               0
     i              - first index - call this I     2               1  (0 treated as [0] by i)
       ɓ            - new dyadic chain with swapped arguments - i.e. f(N, I)
        ⁶           - literal space character       ' '             ' '
          ⁹         - chain's right argument        2               1
         ẋ          - repeat                        [' ',' ']       [' ']
           Ḋ        - dequeue                       [' ']           []
                  ʋ - last four links as a dyad - i.e. f(N, I)
             +ȷ     -   add 1000                    2010            1010
               D    -   to decimal list             [2,0,1,0]       [1,0,1,0]
                Ḋ   -   dequeue                     [0,1,0]         [0,1,0]
                 ṫ  -   tail from index (I)         [1,0]           [0,1,0]
            ;       - concatenate                   [' ',1,0]       [0,1,0]
                    - implicit print                " 10"           "010"

Python 2 , 40 байт

lambda n:'%3s'%`10000+n`.lstrip('1')[1:]

Попробуйте онлайн!

Реализует идею, похожую на ответ г-на Xcoder на основе регулярных выражений, но без регулярных выражений. Снимают ведущую 1 - й в 10000+n, а также следующий символ, затем пэд с пробелами до длины 3. Результат похож на решение OVS игрового использования , lstripно без необходимости два случая.

Чисто , 87 байт

Не выводит короны (использует c).

import StdEnv,Text
$n#i=3-n/1000-n/1100-n/1110
=("ccc"+lpad(""<+n rem(10^i))i'0')%(i,9)

Попробуйте онлайн!

$ n                   // function $ of `n`
 # i =                // define `i` as (the number of digits that aren't crowns)
  3 -                 // three minus
  n / 1000 -          // 1 if first digit is crown
  n / 1100 -          // 1 if second digit is crown
  n / 1110            // 1 if third digit is crown
 = (                  // the string formed by
  "ccc" +             // prefixing three crowns to
  lpad (              // the padding of
   "" <+ n rem (10^i) // non-crown digits of `n`
  ) i '0'             // with zeroes
 ) % (i, 9)           // and removing the extra crowns

Чистый , 99 - 3 = 96 байт

У этого есть короны.

import StdEnv,Text
$n#i=3-n/1000-n/1100-n/1110
=("👑👑👑"+lpad(""<+n rem(10^i))i'0')%(i*4,99)

Попробуйте онлайн!

Japt, 20 байт

Наивный (и слегка пьяный!) Порт решения Арно. Используется "для короны.

U+A³ s r"^21*0"_çQÃÅ

Попытайся

Java 10, 84 83 байта

n->{for(int p=100,t;p>0;n-=t%12*p,p/=10)System.out.printf("%c",t=n/p>9?46:48+n/p);}

Порт @tsh 'C комментарий .
Использует .вместо коронок.

Попробуйте онлайн.

Альтернативный подход (84 (87-3) байта):

n->f(n,1000)String f(int n,int p){return n<p?(n+p+"").substring(1):"👑"+f(n-p,p/10);}

Порт @tsh 'ответ JavaScript .

Попробуйте онлайн.

APL (Dyalog Unicode) , 32 байта

1e3∘{⍵<⍺:1↓⍕⍵+⍺⋄'C',(⍵-⍺)∇⍨⍺÷10}

Попробуйте онлайн!

Префикс прямой функции.

Порт ответа @ tsh на JS .

Как:

1e3∘{⍵<⍺:1↓⍕⍵+⍺⋄'C',(⍵-⍺)∇⍨⍺÷10} ⍝ Main function, arguments ⍵ and ⍺ (⍵ → input, ⍺ → 1000).
     ⍵<⍺:                          ⍝ If ⍵<⍺
         1↓                        ⍝ Drop (↓) the first element (1) of
           ⍕                       ⍝ Format (⍕); 'stringify'
            ⍵+⍺                    ⍝ ⍵+⍺
               ⋄                   ⍝ else
                'C',               ⍝ Concatenate (,) the literal 'C' with
                         ∇⍨        ⍝ Recursive call (∇) with swapped arguments (⍨)
                    (⍵-⍺)  ⍺÷10    ⍝ New arguments; ⍵ → ⍵-⍺; ⍺ → ⍺÷10

PHP, 71 байт

for($n=$argn,$x=1e4;1<$x/=10;$n%=$n<$x?$x/10:$x)echo$n<$x?$n/$x*10|0:C;

принты Cдля короны. Запустите как трубу с -nRили попробуйте онлайн .

Haskell , 48 байтов

('2'#).show.(+1000)
n#(a:x)|n==a='c':'1'#x|1>0=x

Попробуйте онлайн!

C  84  58 байт

Спасибо @tsh за сохранение 25 байтов и спасибо @ceilingcat за сохранение байта!

f(n,p){for(p=1e3;p/=10;)n-=putchar(n/p>9?46:48+n/p)%12*p;}

Попробуйте онлайн!

Сед , 39

48 байт, но оценка равна 39, поскольку каждый 👑 считается как 1.

/..../s/^1+0/👑👑👑/
s/^/00/
s/.*(...)/\1/

Попробуйте онлайн!

Perl 6 , 38 - 9 = 29 байт

-2 байта благодаря Джо Кингу

{~m/...$/}o{S/1+0/👑👑👑/}o*+1e4

Попробуйте онлайн!

Вдохновлено решением JavaScript Арно.

Чисто , 96 байт

Я думаю, что Super Mario 3D Land, New Super Mao Bros.2 и Super Mario 3D World имеют этот счетчик жизни.

import StdEnv,Text
$n#i=3-n/1000-n/1100-n/1110
=("👑👑👑"+lpad(""<+n rem(10^i))i'0')%(i*4,99

Я согласен с Чистым .

Убедитесь, что я не изменяю.