Лучшие шестнадцатеричные цветовые коды для вашего интернета

46

Шестнадцатеричные триплеты, такие как #ffffff(белый) или #3764ef(голубоватый), часто используются для обозначения цветов RGB. Они состоят из #шести шестнадцатеричных цифр (0-f) или иногда трех цифр, где реальный цвет получается путем удвоения каждой цифры. Например, #fffесть #ffffffи #1a8есть #11aa88.

К сожалению, эта трехзначная стенография была самой лучшей игрой в гольф, которую Интернет мог предложить до сих пор .

Напишите программу или функцию, которая принимает строку от 1 до 7 символов:

  • Первый персонаж всегда будет #.
  • Остальные персонажи всегда будут шестнадцатеричные цифры: 0123456789abcdef.

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

Input   -> Output
#       -> #000000    (black)
#U      -> #UUUUUU
#UV     -> #UVUVUV
#UVW    -> #UUVVWW    (usual 3-digit shorthand)
#UVWX   -> #UXVXWX
#UVWXY  -> #UVWXYY
#UVWXYZ -> #UVWXYZ    (not shorthand)

Каждый из U, V, W, X, Y, и Zможет быть любой шестнадцатеричной цифрой. На выходе всегда 7 символов.

Например:

Input -> Output
# -> #000000
#0 -> #000000
#4 -> #444444
#f -> #ffffff
#a1 -> #a1a1a1
#0f -> #0f0f0f
#99 -> #999999
#1a8 -> #11aa88
#223 -> #222233
#fff -> #ffffff
#1230 -> #102030
#d767 -> #d77767
#bbb5 -> #b5b5b5
#aabbc -> #aabbcc
#00000 -> #000000
#3764e -> #3764ee
#3764ef -> #3764ef
#123456 -> #123456
#f8f8f8 -> #f8f8f8

Примечания

  • Ввод всегда будет начинаться с, как #и вывод.

  • Вы можете предположить, что все вводимые буквы строчные ( abcdef) или прописные ( ABCDEF), как вы предпочитаете.

  • Буквы на выходе могут быть в любом случае по вашему усмотрению. Вы можете даже смешать дела.

  • Альфа / прозрачность здесь не рассматривается (хотя существуют шестнадцатеричные версии цветов RGBA).

Самый короткий код в байтах побеждает.

Кальвин Хобби
источник
11
« К сожалению, это три цифры сокращенному был golfiest интернет не было предложения, до сих пор. » - Ну, не совсем . HTML, 0 байт - работает из коробки
Берги
11
Обратное тоже было бы круто
Beta Decay
9
Я не удовлетворен этой #UVWXY -> #UVWXYYзаписью, потому что она допускает однозначное представление для канала Blue, но нет аналогичных выражений для красного и зеленого (например, если бы я хотел, #889071я не могу сокращать, но #907188могу быть ... как #90718) другие все отлично работает
Draco18s
3
@ Draco18s Я люблю это. Это один и тот #UVWX -> #UXVXWX. Это настолько противоречивое и произвольное поведение, что трудно поверить, что на самом деле в настоящее время не существует пары браузеров, которые его реализуют.
xDaizu
1
@xDaizu Спецификация CSS имеет #RGBAи #RRGGBBAA, поэтому # 1234 следует читать какrgba(17, 34, 51, 0.25)
tsh

Ответы:

13

JavaScript, 86 82 77 байт

x=>([s,a=0,b=a,c,d,e,f]=x,f?x:e?x+e:[s,a,d||a,c?b:a,d||b,v=c||b,d||v].join``)

просто выяснить, что удалить рекурсивный сохранить 4 байта ...

идея из @Arnauld сэкономить 4 байта, +1 больше байтов

ТТГ
источник
([s,a=0,b=a,c,d,e,f]=x)=>f?x:e?x+e:d?s+a+d+b+d+c+d:c?s+a+a+b+b+c+c:s+a+a+a+b+b+bдля 80 байтов
Люк
@ Лука, я только что получилReferenceError: x is not defined
tsh
6

Желе , 24 байта



x2
j0ị$
m0

0
Ḣ;LĿṁ6$$

Полная программа (пустые строки - фактически пустые строки).

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

Как?

     - Link 1 (0 bytes), returns its input (e.g. "U" -> "U")
     - Link 2 (0 bytes), returns its input (e.g. "UV" -> "UV")
x2   - Link 3, doubles up (e.g. "UVW" -> "UUVVWW")
j0ị$ - Link 4, joins with final element (e.g. "UVWX" -> "UXVXWXX")
m0   - Link 5, reflects its input (e.g. "UVWXY" -> "UVWXYYXWVU")
     - Link 6 (0 bytes), returns its input (e.g. "UVWXYZ" -> "UVWXYX")
0    - Link 7, returns zero (link 7 is also link 0 since there are 7 links)
Ḣ;LĿṁ6$$ - Main link: string
Ḣ        - head (get the '#')
       $ - last two links as a monad:
   Ŀ     -   call link at index:
  L      -     length
      $  -   last two links as a monad:
    ṁ6   -     mould like 6 (e.g. "UVWXYYXWVU" -> "UVWXYY"
         -                    or  "UV" -> "UVUVUV")
 ;       - concatenate (prepend the '#' again)
         - implicit print

* программу набора тестов нужно было изменить, поменяв местами порядок Main linkи Link 7, в то время как нижний колонтитул стал Main Link. Кроме того, его необходимо #было заменить вручную, так как программа его возглавляет.

Джонатан Аллан
источник
5

CJam, 45  44  42 40 36 35 байт

q(\0se|_,("6* 3* 2e* )f+ _W=+ "S/=~

Запускает различные фрагменты кода в зависимости от длины ввода.

Esolanging Fruit
источник
1
Некоторое форматирование <s> не </ s> требуется ....<s></s>
stevefestl
3
@SteveFest Но вычеркнуто 44 все еще регулярно 44 ...
Esolanging Fruit
1
Оу! Ты поймал меня! Я забыл об этом!
Stevefestl
4

PHP 7.1, 88 байт

#<?for(;$i<6;)echo@$argn[_22222232532233423355224462[5*$i+++strlen($argn|aa)*.85]-1]?:0;

PHP 5, 90 88 байт

#<?for(;$i<6;)echo$argn[_10311001122011333002244012345[6*$i+++strlen($argn|aa)-8]+1]?:0;
user63956
источник
Я понятия не имею, как вы поняли эту идею, но она работает. Работаешь _21422112233122444113355123456[6*$i+++strlen($argn|aa)-8]?
Йорг Хюльсерманн
1
не могли бы вы объяснить, как это работает?
Брайан Х.
Этот хорош! Он хранит смещение в $argnв 21422112233122444113355123456и выбирает правильную основанный на STRLEN. aaдополняет строку как минимум до 2 символов. На входе #нет $argn[1]так ?:0выходов 0. Это также работает на 0в строке. Один из лучших ответов, которые я видел! К сожалению, это не слишком дорого (ответ Йоргу был доведен до 95).
Кристоф
1
Ха-ха, это лучшее злоупотребление автоматическими строками PHP, которые я когда-либо видел. +1
ETHпродукция
1
@Christoph Вторая версия нуждается в версии PHP под 7.1 и версии PHP более 5.6 Я думаю, что добавить это должно прояснить
ситуацию
3

PHP, 95 93 89 87

<?=strtr(_1.intval([a6n,sot,c8c,lba,vf1,vf2][strlen($argn|aa)-2],33),_134256,$argn.=0);

По сути, ответ @ JörgHülsermann, но очень удачный, поэтому я решил опубликовать его как отдельный ответ. Я бы посчитал этот ответ коллективным усилием меня и Йорг.

-4 bytes thanks to @JörgHülsermann
-1 bytes thanks to @JörgHülsermann's base 33 numbers
Christoph
источник
3

Python 3, 166 162 160 152 байта

import re
lambda x,d='(.)$',b=r'\1':re.sub(*[('$','0'*6),(d,b*6),('(..)$',b*3),('(\w)',b*2),('.'+'(.)'*4,r'#\1\4\2\4\3\4'),(d,b*2),('','')][len(x)-1],x)

Я создаю список заменяющих кортежей регулярных выражений для каждого шаблона, а затем извлекаю кортеж по индексу len(x)-1, в конце концов разбивая *его на аргументы re.sub:

lambda x, d='(.)$', b=r'\1':   # lambda expression, save often used strings
  re.sub(   # regex replacement of:
         *  # expand what follows into arguments, i.e. f(*(1,2)) -> f(1,2)
         [  # list of replacement patterns:
            # 1 character: replace the end with 6 zeroes
            ('$', '0'*6),
            # 2 chars: repeat the last character 6 times
            (d, b*6),
            # 3 chars: repeat the two non-#s 3 times.
            ('(..)$', b*3),
            # 4 chars: replace every non-# with twice itself
            ('(\w)', b*2),
            # 5 chars: has to be somewhat verbose..
            ('.'+'(.)'*4, r'#\1\4\2\4\3\4'), 
            # 6 chars: repeat the last character
            (d, b*2),
            # 7 chars: complete already, replace nothing with nothing
            ('', '')
         ][len(x)-1], # select the element from the list that has the right length
        x)  # replace in argument x

запомнил 8 байтов r'\1'(спасибо, Габор Фекете)

L3viathan
источник
1
Не использовать ли r'\1'в качестве именованного параметра некоторые байты?
Габор Фекете
1
Вы написали, o=r'\1'но используете bв своем коде: D
Габор Фекете
1
@ GáborFekete Whoops: D
L3viathan
3

Java 10, 228 227 224 182 байта

s->{var x="$1$1";int l=s.length();return l>6?s:l>5?s+s.charAt(5):l<2?"#000000":s.replaceAll(l>4?"(.)(.)(.)(.)$":l==3?"([^#]{2})":"([^#])",l>4?"$1$4$2$4$3$4":l>3?x:l>2?x+"$1":x+x+x);}

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

Объяснение:

s->{                      // Method with String as both parameter and return-type
  var x="$1$1";         //  Create a temp String to repeat a match
  int l=s.length();     //  Length of the String
  return l>6?           //  If the length is 7:
    s                   //   Return the input-String as is
   :l>5?                //  Else-if the length is 6:
    s+s.charAt(5)       //   Return the input-String with the last character repeated
   :l<2?                //  Else-if the length is 1:
    "#000000";          //   Simply return the literal String #000000
   :                    //  Else (the length is 2, 3, 4, or 5):
    s.replaceAll(       //   Return the input-String after a regex replace:
                        //    With as match:
     l>4?               //     If the length is 5:
      "(.)(.)(.)(.)$",  //      Use a match for pattern #(A)(B)(C)(D)
     :l==3?             //     Else-if the length is 3:
      "([^#]{2})"       //      Use a match for pattern #(AB)
     :                  //     Else (the length is 2 or 4):
      "([^#])",         //      Use a match for pattern #(A) or #(A)(B)(C)
                        //    And as replacement: 
     l>4?               //     If the length is 5:
      "$1$4$2$4$3$4"    //      Change #ABCD to #ADBDCD
     :l>3?              //     Else-if the length is 4:
      x                 //      Change #ABC to #AABBCC
     :l>2?              //     Else-if the length is 3:
      x+"$1"            //      Change #AB to #ABABAB
     :                  //     Else (the length is 2):
      x+x+x);}          //      Change #A to #AAAAAA
Кевин Круйссен
источник
2

APL (Dyalog) , 43 байта

Требуется ⎕IO←0по умолчанию во многих системах.

'#',{6⍴(≢⍵)⊃'0' ⍵(2/⍵)(∊⍵,¨⊃⌽⍵)(⍵,⌽⍵)⍵}1↓⍞

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

1↓⍞ отбросить первый символ (хеш)

{ применить следующую анонимную функцию

(≢⍵)⊃ использовать длину аргумента , чтобы выбрать один из следующих семи значений:
  '0' Нулевое
   аргумент
   аргумента
  2/⍵ два ( 2) каждый ( /) аргумента ( )
  ∊⍵,¨⊃⌽⍵ уплощенного ( ) аргумент ( ) , а затем каждый ( ) с первым ( ) из Аргумент reversed ( ) ( )
  ⍵,⌽⍵ Аргумент ( ) prepended ( ,) к аргументу reversed ( ) ( )
   Аргумент

6⍴ повторяйте элементы до тех пор, пока не будет достигнута длина шести

} конец анонимной функции

'#', добавить к этому хеш

Адам
источник
2

Python 2, 167 165 байт

-2 байта благодаря Trelzevir

z=zip
lambda s:'#'+''.join([reduce(lambda x,y:x+y,c)for c in['0'*6,s[1:2]*6,z(s[1:2],s[2:3])*3,z(*z(s[1:2],s[2:3],s[3:4]))*2,z(s[1:4],s[-1]*3),s+s[-1],s][len(s)-1]])

Он создает список строк и выбирает в зависимости от длины строки.

Габор Фекете
источник
1
Вы можете сохранить 2 байта, используя z=zip.
Трелзевир
2

Сед, 119 (118 байт + -E)

s/#//
s/^$/0/
s/^.$/&&/
s/^..$/&&&/
s/^(.)(.)(.)$/\1\1\2\2\3\3/
s/^(.)(.)(.)(.)$/\1\4\2\4\3\4/
s/^....(.)$/&\1/
s/^/#/

Простая замена текста.

Kevin
источник
2

PHP, 87 байт

используйте номера Base 35

<?=strtr(_2.intval([i4w,qdi,j1y,apg,ruu,ruv][strlen($argn|aa)-2],35),_234156,$argn.=0);

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

или используйте номера 33 базы

<?=strtr(_1.intval([a6n,sot,c8c,lba,vf1,vf2][strlen($argn|aa)-2],33),_134256,$argn.=0);

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

PHP, 89 байт

<?=strtr(_1.[11111,21212,12233,42434,23455,23456][strlen($argn|aa)-2],_123456,$argn."0");

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

intval(["8kn",gd8,"9ft",wqq,i3j,i3k][strlen($argn|aa)-2],36) + 3 байта, используя базу 36

PHP, 102 байта

<?=strtr("01".substr("11111111112121212233424342345523456",5*strlen($argn)-5,5),str_split($argn."0"));

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

PHP, 180 байт

<?=[str_pad("#",7,($l=strlen($p=substr($argn,1)))?$p:0),"#$p[0]$p[0]$p[1]$p[1]$p[2]$p[2]","#$p[0]$p[3]$p[1]$p[3]$p[2]$p[3]","#$p[0]$p[1]$p[2]$p[3]$p[4]$p[4]",$argn][($l>2)*($l-2)];

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

Йорг Хюльсерманн
источник
1
Я довел эту версию до 95 байтов, но подумал, что она другая, поэтому я отправил ее в качестве собственного ответа . Надеюсь, вам понравится :)
Кристоф
2
@Christoph В данный момент я здесь с моей версией. Попробуйте онлайн!
Йорг Хюльсерманн
2
Base 33 - отличная идея! Я сидел здесь некоторое время, но ни черта не придумал.
Кристоф
1
@ Кристоф, это очень похоже на твою игру в гольф моей первой версии.
Нелегко было
1
@Christoph Спасибо и система счисления 35 - это мой подход в нашей совместной работе
Йорг Хюльсерманн
2

Сетчатка , 90 байт

#(..)$
#$1$1$1
#(.)(.)(.)$
#$1$1$2$2$3
#(.)(.)(.(.))$
#$1$4$2$4$3
#$
#0
+`#.{0,4}(.)$
$&$1

Попробуйте онлайн! Включает тестовые случаи.

Пояснение: первый перевод обрабатывает две цифры, второй три, третий четыре и четвертый ноль. Однако ни второй, ни четвертый переводы не повторяют (последнюю) цифру, как это делается в конце концов, чтобы охватить все оставшиеся случаи.

Нил
источник
2

Haskell , 130 127 122 118 109 95 байт (от пользователя 1472751 )

y a|l<-[last a]=[y"0",y$a++a,a++a++a,do c<-a;[c,c],(:l)=<<init a,a++l,a]!!length a
f(h:r)=h:y r

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

bartavelle
источник
Позади есть лишнее пространство g.
Лайкони
1
И (x:r)!(y:t)=x:y:r!t;e!_=eкороче чем a!b=id=<<[[x,y]|(x,y)<-zip a b].
Лайкони
Как первый символ всегда #можно сделатьg(a:t)|l<-last t=a:[ ...
Лайкони
@ Laikoni действительно, это большие улучшения!
bartavelle
Я нашел 95-байтовое решение, которое использует аналогичный подход к вашему (великие умы думают одинаково, а?). Вы можете использовать его или я могу опубликовать отдельный ответ.
user1472751
2

Powershell, 113 111 байт

param($s)-join($s+='0'*($s-eq'#'))[0,1+((,1*5),(2,1*2+2),(1,2,2,3,3),(4,2,4,3,4),(2..5+5),(2..6))[$s.Length-2]]

Пояснил тестовый скрипт:

$f = {

param($s)           # parameter string
$s+='0'*($s-eq'#')  # append '0' if $s equal to '#'
$i=(                # get indexes from array
    (,1*5),         # $i = 1,1,1,1,1 if $s.length-2 = 0
    (2,1*2+2),      # $i = 2,1,2,1,2 if $s.length-2 = 1
    (1,2,2,3,3),    # $i = 1,2,2,3,3 if $s.length-2 = 2
    (4,2,4,3,4),    # $i = 4,2,4,3,4 if $s.length-2 = 3
    (2..5+5),       # $i = 2,3,4,5,5 if $s.length-2 = 4
    (2..6)          # $i = 2,3,4,5,6 if $s.length-2 = 5
)[$s.Length-2]
-join$s[0,1+$i]     # join chars from $s by indexes 0, 1 and $i


}

@(
    , ("#", "#000000")
    , ("#0", "#000000")
    , ("#4", "#444444")
    , ("#f", "#ffffff")
    , ("#a1", "#a1a1a1")
    , ("#0f", "#0f0f0f")
    , ("#99", "#999999")
    , ("#1a8", "#11aa88")
    , ("#223", "#222233")
    , ("#fff", "#ffffff")
    , ("#1230", "#102030")
    , ("#d767", "#d77767")
    , ("#bbb5", "#b5b5b5")
    , ("#aabbc", "#aabbcc")
    , ("#00000", "#000000")
    , ("#3764e", "#3764ee")
    , ("#3764ef", "#3764ef")
    , ("#123456", "#123456")
    , ("#f8f8f8", "#f8f8f8")
) |% {
    $s, $e = $_
    $r = &$f $s
    "$($e-eq$r): $r"
}

Выход:

True: #000000
True: #000000
True: #444444
True: #ffffff
True: #a1a1a1
True: #0f0f0f
True: #999999
True: #11aa88
True: #222233
True: #ffffff
True: #102030
True: #d77767
True: #b5b5b5
True: #aabbcc
True: #000000
True: #3764ee
True: #3764ef
True: #123456
True: #f8f8f8
Mazzy
источник
1

JavaScript (ES6), 96 байт

s=>'#'+(c=[u,v,w,x,y,z]=s.slice(1)||'0',z?c:y?c+y:(x?u+x+v+x+w+x:w?u+u+v+v+w+w:c.repeat(v?3:6)))

darrylyeo
источник
1

Perl 61 байт

say+(/./g,0)[0,1,(unpack+S7,"g+g+ÜRÉ/Â¥[ [")[y/#//c]=~/./g]

Беги с perl -nE. Предполагается, что ввод в точности соответствует описанию (дает неверные результаты, если ввод имеет завершающий перевод строки).

Строка «g + g + ÜRÉ / Â ¥ [[» кодирует 7 16-битных чисел 11111,11111,21212,12233,42434,23455,23456как 14 латинских символа. Вот hexdump для ясности:

0000001d: 672b 672b dc52 c92f c2a5 9f5b a05b       g+g+.R./...[.[
Grimmy
источник
Я заменил строку Latin-1 с призывом упаковать (), и получил: perl -nE 'say+(/./g,0)[0,1,(unpack+S7,pack "H*","672b672bdc52c92fc2a59f5ba05b")[y/#//c]=~/./g]'. Но когда я набираю «#a», я получаю «# a0a0a0», что я считаю неправильным. Это должно быть "#aaaaaa". (Может быть, я допустил ошибку в вызове pack ().)
JL
На этот раз я заменил распакуйте () & пакет () вызывает с буквальным трусами, и получил: perl -nE 'say+(/./g,0)[0,1,(11111,11111,21212,12233,42434,23455,23456)[y/#//c]=~/./g]'. Это все еще кажется неправильным, так как «#a» все еще дает неправильный ответ «# a0a0a0» (вместо «#aaaaaa»).
JL
Ах! Я понял! Мне нужно использовать -lпереключатель (это «ELL» , как в «буквы L») с -nEпереключателем, например: perl -lnE 'say+(/./g,0)[0,1,(11111,11111,21212,12233,42434,23455,23456)[y/#//c]=~/./g]'. Теперь это работает правильно.
JL
Предупреждение, которое гласит «(дает неверные результаты, если ввод имеет завершающий перевод строки)» можно устранить, изменив «Выполнить с perl -nE» на «Выполнить с perl -lnE». ( -lЧасть переключателя избавляет вас от завершающей новой строки.)
JL
Использование -Fв командной строке позволяет изменить это на say+(@F,0)[0,1,(unpack+S7,"g+g+ÜRÉ/Â¥[ [")[$#F]=~/./g]сохранение 5 байт в коде.
Xcali
1

Пакет Windows, 389 372 362 349 231 байт

Я полностью скопировал код @Neil ...

@call:c %s:~1,1% %s:~2,1% %s:~3,1% %s:~4,1% %s:~5,1% %s:~6,1%
@exit/b
:c
@for %%r in (#%1%2%3%4%5%6.%6 #%1%2%3%4%5%5.%5 #%1%4%2%4%3%4.%4 %s%%1%2%3.%3 
%s%%1%2%1%2.%2 %s%%1%1%1%1%1.%1 #000000.0)do @if not %%~xr.==. @echo %%~nr&exit/b
stevefestl
источник
1
замена% s% на% 1 должна сэкономить вам несколько байтов.
satibel
2
%s:~3,1%%s:~4,1%можно заменить на %s:~3,2%. Также я не уверен, что это работает для ввода #.
Нил
2
Кстати, я попробовал другой алгоритм, и он вышел с 243 байтами.
Нил
1
Могу ли я знать, каков алгоритм?
Stevefestl
1
(Извините, я не увидел ваш комментарий из-за отсутствия @Neil.) Есть некоторый шаблон, но две линии интереса - call:c %s:~1,1% %s:~2,1% %s:~3,1% %s:~4,1% %s:~5,1% %s:~6,1%и for %%r in (#%1%2%3%4%5%6.%6 #%1%2%3%4%5%5.%5 #%1%4%2%4%3%4.%4 %s%%1%2%3.%3 %s%%1%2%1%2.%2 %s%%1%1%1%1%1.%1 #000000.0)do if not %%~xr.==. echo %%~nr&exit/b.
Нейл
1

Pyth, 35 байтов

+\#@<R6[J|tQ\0K*6JKKs*R2JjeJJ+JeJ)l

Попробуйте это онлайн здесь , или проверьте все тестовые случаи здесь .

+\#@<R6[J|tQ\0K*6JKKs*R2JjeJJ+JeJ)lQ   Implicit: Q=eval(input())
                                       Trailing Q inferred
          tQ                           Remove first char of input
         |  \0                         The above, or "0" if empty
        J                             *Store in J (also yields stored value)
              K*6J                    *Repeat J 6 times, store in K
                  KK                  *2 more copies of the above
                    s*R2J             *Duplicate each char of J in place
                         jeJJ         *Join chars of J on last char of J
                             +JeJ     *Append last char of J to J
       [                         )     Wrap the 5 starred results in an array
    <R6                                Trim each to length 6
   @                              lQ   Choose result at index of length of input
                                       (Modular indexing, so length 7 selects 0th element)
+\#                                    Prepend #, implicit print
Sok
источник
1

Python 2 , 99 байт

def a(s):s=s[1:]or'0';l=len(s);print('#'+(l/4*s[-1]).join(i+i*(l==3)for i in(l<5)*6*s)+s+s[-1])[:7]

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

Jitse
источник
Хороший первый пост. Кстати, попробуйте онлайн! является необязательным, но рекомендуемым сайтом, на котором выполняется код для включения в ваш ответ. Он может генерировать сообщения CG и CC и дает точное количество байтов для загрузки.
Веска
Очень круто, спасибо!
Джитсе
0

Python 2 - 179 байт

n=raw_input()                                #prompts for string
t=len(n)                                     #the length of the string is stored to 't'
if t==1:n+="0"*6                             #if t is only one char long, it needs to be black, so n is assigned 6 zeroes
if t==2:n+=n[1]*5                            #if t is two chars long, it adds the last character times 5 at the end
if t==3:n+=n[1:3]*2                          #if t is 3 chars, it multiplies the last two digits times 3
if t==4:n="#"+n[1]*2+n[2]*2+n[3]*2           #if t is 4 chars, it multiplies each char by two
if t==5:n=n[:2]+n[4]+n[2]+n[4]+n[3]+n[4]     #if t is 5 chars, it makes it work
if t==6:n+=n[t-1]                            #if t is 6 chars, it adds the last character to the end
print n                                      #it prints out n

Может ли кто-нибудь помочь мне сохранить несколько байтов? Все утверждения, если они могут быть сокращены до чего-то более короткого, я просто не знаю, что.

FantaC
источник
1
Попробуйте поместить каждый фрагмент в список и индексировать. Кроме того, переход на Python 3, скорее всего, сохранит байты и list[len(list)-x]будет таким же, как list[-x].
CalculatorFeline
Если вы хотите выжать несколько байтов, подумайте о преобразовании if t==1:в if t<2:if t==2:в if t<3:и т. Д.). Конечно, он менее читабелен, но лучше в коде!
JL
0

TXR Lisp: 171 байт

Отступ:

(do let ((s (cdr @1)))
  (caseql (length s)
    (0 "#000000") 
    (1 `#@s@s@s@s@s@s`)
    (2 `#@s@s@s`)
    (3 `#@[mappend list s s]`)
    (4 `#@[s 0]@[s 3]@[s 1]@[s 3]@[s 2]@[s 3]`)
    (5 `#@s@[s 4]`)
    (6 `#@s`))))

Это анонимная функция: doмакрос генерирует (lambda ...)форму.

Это идиоматический стиль кодирования, подходящий для производства; единственный гольф - это сжатие пустого пространства:

(do let((s(cdr @1)))(caseql(length s)(0"#000000")(1`#@s@s@s@s@s@s`)(2`#@s@s@s`)(3`#@[mappend list s s]`)(4`#@[s 0]@[s 3]@[s 1]@[s 3]@[s 2]@[s 3]`)(5`#@s@[s 4]`)(6`#@s`))))
Kaz
источник
0

Braingolf , 95 байт

l1-.1e$_!&@4>[!@]|.2e$_!&@!@2!@2|.3e$_<@V2[R<!@!@v]|.4e$_<@VRM&,2>[@v!@R]|.5e$_<@!&@@|.6e$_&@|;

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

По сути, это эквивалент Брейнгольфа в случае переключения на количество символов после #ввода.

объяснение

Материал, который всегда работает:

l1-.1  Implicit input to stack
l      Push length of stack
 1-    Decrement last item in stack
   .   Duplicate last item in stack
    1  Push 1

Если #X:

e$_!&@4>[!@]|
e              If last 2 items (input length - 1 and 1) are equal..
 $_            ..Pop last item silently
   !&@         ..Print entire stack as chars without popping
      4>       ..Push 4 and move it to start of stack
        [..]   ..While loop, decrements first item in stack when it reaches ]
               ..If first item in stack is 0 when reaching ], exit loop
               ..This loop will run 5 times
         !@    ....Print last char without popping
            |  endif

Если #XX

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

.2e$_!&@!@2!@2|
.2               Duplicate last item and push 2
  e              If last 2 items (input length - 1 and 2) are equal..
   $_            ..Pop last item silently
     !&@         ..Print entire stack as chars without popping
        !@2      ..Print last 2 items as chars without popping
           !@2   ..Print last 2 items as chars without popping
              |  Endif

Если #XXX

.3e$_<@V2[R<!@!@v]|
.3                   Duplicate last item and push 3
  e                  If last 2 items (input length - 1 and 3) are equal..
   $_                ..Pop last item silently
     <@              ..Move first item in stack to the end, then pop and print
       V2            ..Create new stack and push 2 to it
         [.......]   ..While loop, see above for explanation
          R<         ....Switch to stack1 and move first item to end of stack
            !@!@     ....Print last item on stack twice without popping
                v    ....Move to stack2 for loop counting
                  |  Endif

Вы поняли идею

Skidsdev
источник
0

05AB1E , 24 байта

ćU©0®Ð€D®S¤ý®¤«)JIgè6∍Xì

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

Объяснение:

ć           # Extract the head of the (implicit) input-string;
            # pop and push remainder and head
 U          # Pop and store the head in variable `X`
  ©         # Store the remainder in variable `®` (without popping)
  0         # Push a 0
  ®Ð        # Push `®` three times
    D      # Duplicate each character in the last copy (which becomes a character-list)
  ®S        # Push variable `®` again, converted to a character-list
    ¤       # Get its last character (without popping the list itself)
     ý      # Join the list by this character
  ®         # Push variable `®` once again
   ¤        # Get its last character (without popping the string itself)
    «       # Append it to the string
  )         # Wrap all values into a list
   J        # Join the inner list from `€D` together to a list,
            # or in case of input `#`, join everything together to string "0"
            #  i.e. "#" → (["","0","","","",""] → ) "0"
            #  i.e. "#4" → ["4","0","4","4","44","4","44"]
            #  i.e. "#a1" → ["a1","0","a1","a1","aa11","a11","a11"]
            #  i.e. "#1a8" → ["1a8","0","1a8","1a8","11aa88","18a88","1a88"]
            #  i.e. "#abcd" → ["abcd","0","abcd","abcd","aabbccdd","adbdcdd","abcdd"]
            #  i.e. "#3764e" → ["3764e","0","3764e","3764e","33776644ee","3e7e6e4ee","3764ee"]
            #  i.e. #123456 → ["123456","0","123456","123456","112233445566","16263646566","1234566"]
    Ig      # Push the length of the input
      è     # Index (0-based) this into the list (with automatic wraparound for length=7)
       6   # Extend/shorten the string to length 6
         Xì # And prepend variable `X` (the "#")
            # (after which the result is output implicitly)
Кевин Круйссен
источник