prOGraMMIng PuZZleS & cOde ____


45

Вхідні дані

Непорожня закодована рядок, що складається з друкованих символів ASCII (в діапазоні 32-126), де деякі літери були відсутні _.

Вихід

Розшифрований рядок однакової довжини з усіма малими літерами, включаючи пропущені.

Як?

Редагувати: Як згадував @Deusovi в коментарях, це варіант шифру Бекона .

  • Зберіть всі букви в початковому рядку та згрупуйте їх по 5. Додаткові літери, які не входять до повної групи з 5, ігноруються.
  • Перетворіть кожну групу у двійкові: малі регістри = 0 , великі регістри = 1 . Це призводить до списку цілих чисел.
  • Використовуйте кожне значення N у цьому списку, щоб замінити кожну _в початковому рядку на N -ту букву алфавіту (0-індексовану) у порядку появи.

Приклад: prOGraMMIng PuZZleS & cOde ____

prOGr --> 00110 -->  6 -->  7th letter = 'g'
aMMIn --> 01110 --> 14 --> 15th letter = 'o'
gPuZZ --> 01011 --> 11 --> 12th letter = 'l'
leScO --> 00101 -->  5 -->  6th letter = 'f'

Замінивши пропущені літери та перетворивши все назад в малі регістри, розкривається оригінальний рядок:

programming puzzles & code golf

Це очікуваний вихід.

Роз'яснення та правила

  • Пропущені літери гарантовано з’являться в кінці рядка. Більш формально: ніколи не буде жодної літери після першої _у рядку введення. Однак можуть бути й інші символи для друку ASCII, такі як пробіли та розділові знаки.
  • Гарантоване введення не містить жодної непотрібної великої літери: всі великі літери - це біти, встановлені в 1, які необхідні для декодування пропущених літер. Все інше - з малих літер.
  • Введений рядок гарантовано є дійсним. Особливо:
    • Він завжди буде містити достатньо повної групи з 5 літер, щоб розшифрувати підкреслення.
    • Двійкові кодовані цілі числа гарантовано знаходяться в діапазоні [0-25] .
  • У _рядку введення може взагалі не бути , і в цьому випадку вам просто потрібно повернути дані.
  • Це , тому найкоротша відповідь у байтах виграє!

Тестові справи

Input : hello!
Output: hello!

Input : helLO, worl_!
Output: hello, world!

Input : i aM yoUr faTh__.
Output: i am your father.

Input : prOGraMMIng PuZZleS & cOde ____
Output: programming puzzles & code golf

Input : Can YOu gUesS tHE ENd oF This ____?
Output: can you guess the end of this text?

Input : THe qUICk brown FOx JUMps oVEr the la__ ___.
Output: the quick brown fox jumps over the lazy dog.

Input : RoadS? wHERe we're goinG WE doN't need _____.
Output: roads? where we're going we don't need roads.

Input : thE greatESt Trick thE DeVIl EVer PUllEd wAs CONvInciNg tHe WorLD h_ ____'_ _____.
Output: the greatest trick the devil ever pulled was convincing the world he didn't exist.

Деякі додаткові тести:

Input : BInar_
Output: binary

Input : 12 MonKey_
Output: 12 monkeys

Input : hyPerbolIZ__
Output: hyperbolized

Input : {[One Last Test ca__]}
Output: {[one last test case]}

Чи слід розглядати лише стільки груп з 5, скільки є підкреслення у введенні?
Esolanging Fruit

У такому випадку правило, коли _у вхідному рядку немає, є дещо особливим випадком.
Esolanging Fruit

1
О, шифр Бекона!
Деусови

1
@SztupY Оскільки The input is guaranteed not to contain any useless capital letter, якщо немає підкреслення, також не буде великої літери.
Лайконі

1
@KirillL. Так, все в [32-126]. Я додав ще один тестовий випадок.
Арнольд

Відповіді:


19

05AB1E , 18 байт

Код:

áS.u5ôJC>.bv'_y.;l

Використовує кодування 05AB1E . Спробуйте в Інтернеті!

Пояснення:

á                       # Remove non-letters from the input string.
 S                      # Split the result into individual characters.
  .u                    # Check if is uppercase for each character.
    5ôJ                 # Split into binary numbers of length 5.
       C                # Convert from binary to decimal.
        >               # Add one.
         .b             # Map 1 → A, 2 → B, 3 → C, ..., 25 → Y, 26 → Z.
           v            # For each letter:
            '_y.;       #   Replace the first occurrence of '_' with the current letter.
                 l      #   Convert the string to lowercase.


8

Perl 5 -pF -MList::Util=sum, 75 байт

@a=grep!/\W|\d/,@F;s!_!(a..z)[sum map{a gt shift@a&&16/2**$_}0..4]!eg;$_=lc

Спробуйте в Інтернеті!

Пояснення:

  • -pFчитає рядок введення в змінну $_і, розділений на символи, в масив @F.
  • @a=grep!/\W|\d/,@Fвстановлює масив @aрівним тим членам @F, які не задовольняють регулярний вираз \W|\d. \W- це будь-що, крім букв, цифр та _; \dце числа. Так \W|\dбуває все, крім букв і _, і @aмає всі букви та _символи. Ми закінчимо, ніколи не вивчаючи _персонажів @a. (Зверніть увагу, що це працює лише тому, що вхід гарантовано ASCII.)
  • map{a gt shift@a&&16/2**$_}0..4робить наступне від 0 до 4: він зміщує наступний елемент від @a, скорочуючи його, і оцінює, чи aє на ассібетичному рівні більший за цей елемент (тобто, чи цей елемент є великим регістром). Якщо це так, &&це не коротке замикання, то ми отримуємо 16, поділене на 2, на потужність вхідного значення (від 0 до 4). В іншому випадку &&це коротке замикання, і ми отримуємо 0. mapповертає список з п’яти чисел до sum, який додає їх.
  • Це той елемент, який ми хочемо зі списку a..z, і ось що ми отримуємо (a..z)[…].
  • s!_!…!egперетворює кожен _ін $_, в свою чергу, до відповідного листа.
  • $_=lcперетворює $_на малу версію себе та -pдрукує її.


5

Желе ,  28 27  26 байт

-1 дякую Еріку Погонишню та ділнан

Не дуже друге виклик!

ḟŒs$Ƈ<”[s5Ḅ+97Ọż@ṣ”_$FṁLŒl

Монадійне посилання, що приймає та повертає списки символів.

Спробуйте в Інтернеті!

Як?

ḟŒs$Ƈ<”[s5Ḅ+97Ọż@ṣ”_$FṁLŒl - Link: list of characters    e.g. "MfUNE_?"  (shorthand for ['M','f','U','N','E','_','?'])
    Ƈ                      - filter keep each if:
   $                       -   last two links as a monad:
 Œs                        -     swap-case
ḟ                          -     filter discard
                           - ...i.e. keep A-Z,a-z since they change when the case is swapped
                           -                                  "MfUNE"
      ”[                   - literal character                '['
     <                     - less than? (i.e. is upper-case?) [1,0,1,1,1]
        s5                 - split into fives                 [[1,0,1,1,1]]
          Ḅ                - from base two (vectorises)       [[23]]
           +97             - add (vectorises) ninety-seven    [[120]]
              Ọ            - from ordinals (vectorises)       [['x']]
                    $      - last two links as a monad:
                  ”_       -   literal character              '_'
                 ṣ         -   split at                       [['M','f','U','N','E'],['?']]
               ż@          - swapped @rgument zip             [[['M','f','U','N','E'],'x'],['?']]
                     F     - flatten                          "MfUNEx?"
                       L   - length (of input)                7
                      ṁ    - mould like                       "MfUNEx?"
                           - ...removes any excess characters
                        Œl - lower-case                       "mfunex?"

5

Сітківка , 91 90 байт

T`l`a
T`L`A
[^Aa]

L`.{5}
A
aA
+`Aa
aAA
+T`_lA`l_`[^A]A
^
$+¶
+`_(.*)¶a+(.)
$2$1
0G`
T`L`l

Спробуйте в Інтернеті! Пояснення:

T`l`a
T`L`A
[^Aa]

Перекладіть малі aі великі літери на A, видаливши все інше.

L`.{5}

Розділіть Aaгрупи на 5.

A
aA
+`Aa
aAA

Перетворити з двійкового в одинарне, трактуючи Aяк 1 і aяк 0. Оскільки їх Aaспочатку було 5 с, залишилося 5 aс плюс число As в залежності від потрібного положення в алфавіті.

+T`_lA`l_`[^A]A

Збільшення останнього aза кількістю наступних As.

^
$+¶

Додайте початковий вхід.

+`_(.*)¶a+(.)
$2$1

Замініть будь-який _s наступним розшифрованим листом.

0G`

Видаліть зайві розшифровані літери.

T`L`l

Пропишіть все.

Сітківка 0,8,2 , 117 байт

.+
$&¶$&
T`L`l`^.*
T`l`a`.*$
T`L`A
T`aAp`aA_`.*$
(.*¶)?.{5}
$&;
A
aA
+`Aa
aAA
+T`_lA`l_`[^A]A
+`_(.*¶)a+(.);
$2$1
1G`

Спробуйте в Інтернеті! Пояснення:

.+
$&¶$&

Скопіюйте введення.

T`L`l`^.*

Перший екземпляр з малого регістру.

T`l`a`.*$

Перекладіть малі літери до aдругого примірника.

T`L`A

Перекласти великі літери на A. Вони повинні бути у другому екземплярі, оскільки перша копія вже була нижчою.

T`aAp`aA_`.*$

Видаліть все інше з другого примірника.

(.*¶)?.{5}
$&;

Розділіть другий примірник (зараз лише Aa) на групи по 5.

A
aA
+`Aa
aAA
+T`_lA`l_`[^A]A
+`_(.*¶)a+(.);
$2$1
1G`

Розшифруйте букви та вставте їх, як раніше.


5

APL (Dyalog Unicode) , 46 байт SBCS

Анонімна лямбда, передбачається ⎕IO(індекс походження) бути 0.

{_'_'=⊢⋄819A[2⊥⍉(+/_⍵)5A∊⍨⍵∩A,819A←⎕A]@_⍵}

Спробуйте в Інтернеті!

{... ... } два-оператор функції; є аргументом, розділяє твердження

 аргумент (функція без відключення),
'_'= де дорівнює підкреслення (тобто булева функція відображення),
_← призначити цю функцію_

A[… Розмістіть ]@_⍵ наступні символи A у позиціях підкреслення в аргументі
  ⎕A верхнього регістру . Lphabet
  A← призначає, що для A
  819⌶ його малого регістру ( 819 ≈ BIg , без лівого аргументу не означає, що не великий, тобто нижній регістр),
  A, додається алфавіт верхнього регістру; це дає нам всі букви
  ⍵∩ перетину аргументу і це; лише букви аргументу,
  A∊⍨ хто з них є великим алфавітом; великі великі біти
  ()5⍴r змінять це на наступну кількість рядків і п’ять стовпців:
   _⍵ маска підкреслення в
   +/ сумі аргументу, що; кількість підкреслень
   транспоніровать (трактувати кожен рядок як число, а не як бітове положення)
  2⊥ оцінювати як базовий-2
819⌶ малі регістри все


5

Скала , 189 байт

def f(s:Array[Char])={var j=0;s.zipWithIndex.collect{case(95,i)=>s(i)=(Integer.parseInt(s.filter(_.isLetter)slice(j,j+5)map(k=>if(k<91)1 else 0)mkString,2)+97)toChar;j+=5};s.map(_.toLower)}

Спробуйте в Інтернеті!

Пояснення:

def f(s: Array[Char]) = {                // takes a String in input
  var j = 0                              // j stores at which block of 5 letters we're currently at
  s.zipWithIndex.collect {               // Array('h', 'e', ...) => Array(('h', 0) ('e', 1), ...) and we apply a collect transformation (filter/map)
    case (95, i) =>                      // we only handle cases where the char is '_' (95)
      s(i) = (                           // we modify the char at index i with the following
        Integer.parseInt(                // Integer.parseInt("00110", 2) = 6
          s                              //
            .filter(_.isLetter)          // filter out non letter chars (spaces, punct, figures, ...) from the input string (thanks @Arnauld for the fix)A
            .slice(j, j+5)               // "substring" the array to the block of 5 letters in question
            .map(                        // map on the current block of 5 letters
              k =>                       // the index of the next char in the block f 5 (e.g. 13)
                if (k < 91) 1 else 0     // if the current char is upper case (<91) then we replace it by a bit true, otherwise by a bit false
            )mkString,                   // Array(0, 1, 1, ...) => "011..."
          2                              // cast string to binary
        )                                //
        + 97                             // +97 to create a lower case char
      )toChar                            // cast from int to char
      j += 5                             // update the starting index of the next block of 5 letters
    }                                    //
  s.map(_.toLower)                       // return the updated seq of chars all in lower case
}                                        //




3

Чистота , 180 ... 150 байт

import StdEnv
?s=['a'+sum[i\\i<-:""&c<-s|c<'a']: ?(drop 5s)]
@['_':b][x:y]=[x: @b y]
@[a:b]z=[toLower a: @b z]
@e _=e
$s= @s(?(filter isAlpha s))

Спробуйте в Інтернеті!

Визначає функцію $ :: [Char] -> [Char]з @ :: [Char] [Char] -> [Char]як помічником для заміни символів підкреслення, а в ? :: [Char] -> [Char]якості помічника для створення символів заміни.


Як працює i<-:""деталь? Чи символи неявно перетворюються на числа під час їх підсумовування чи додавання?
Лайконі

@Laikoni ні, неявного перетворення немає. Однак ви можете додавати і віднімати символи.
Οurous


3

R , 153 135 113 байт

function(s,S=utf8ToInt(s)){S[S==95]=2^(4:0)%*%matrix(S[S%in%c(65:90,97:122)]<95,5)+97
cat(tolower(intToUtf8(S)))}

Спробуйте в Інтернеті!

Випускає деякі попередження із застосуванням, matrixале це не повинно впливати на результат. Також видає попередження, оскільки [<-призначення призупиняє сторонні призначені об'єкти за замовчуванням.

40 (!) Байтів вниз завдяки вдосконаленням JayCe


Я не думаю, що вам потрібно,length(L)%/%5
JayCe

Також не потрібно визначати L?
JayCe

@JayCe добре добре сьогодні я дізнався, що [<-викине елементи за довжиною індексів ...
Джузеппе

Я теж насправді!
JayCe


3

C (gcc) , 111 109 101 100 байт

Редагувати: додано нижнє кожух за коментарем @ коментаря FrownyFrog; дякую Lynn, Christoph та user5329483 за їх пропозиції!

f(s,t,i)char*s,*t;{for(t=s;t=strchr(t,95);*t=i+1)for(i=3;i<64;s++)isalpha(*s)?i=2*i|*s<97,*s|=32:0;}

Спробуйте в Інтернеті!


Ви можете зберегти 2 байти за допомогою i+=i+(*s<97).
Лінн

Ви можете скасувати j, ввівши біт маркера iі переписавши другий на як for(i=1;i<32;s++). І компенсувати додаткові 32 у зовнішній. Як новачок тут я рахую запас на сім байт.
користувач5329483

Знайшов ще один байт: for(i=3;i<96;s++)зводить 65 до одноцифрового числа, ака 1.
користувач5329483

2

Ідіть, 219 217 192 210 209 156 байт

Збережено 25 байт завдяки @Lynn! Збережено 53 байти завдяки @ovs!

Доведеться втратити 18 байт через помилку з рядками без підкреслення :(

func p(s string){b:=0;n:=0;for _,c:=range s{if IsLetter(c){b+=b;if IsUpper(c){b+=1};n++;s=g.Replace(s,"_",string('a'+b%32),(5-n%5)/5)}};Print(g.ToLower(s))}

Спробуйте в Інтернеті!


2

Стакс , 22 байти

â╟▓ïMeee¶▐f◄┴≈┘n╛äyΩ○N

Запустіть і налагоджуйте його

Загальний підхід - це регулярна заміна виразів з "_"використанням функції зворотного виклику, яка розрізає літери входів для обчислення кожного символу заміни.

v       convert to lower case
'_      "_" string literal
{       begin block for regex replacement
  yVl|& all the letters only from the original input
  5/    split into chunks of 5
  i@    keep the ith one, where i is the 0-based number of times this block has run
  {97<m map 5-letter chunk to bits to indicate which are lowercase
  :b    decode as 5-bit integer
  97+]  add 97 and wrap in array to convert to lower case character
}       end block for regex replacement
R       do regex replacement

Виконати цей


1

Червоний , 247 байт

func[s][a: charset[#"a"-#"z"#"A"-#"Z"]v: copy""parse s[any[copy c a(append v to-string c)|
skip]]k: 0 t: copy""repeat n(length? v)/ 5[c: 0 p: 16
loop 5[if v/(k: k + 1) <#"a"[c: c + p]p: p / 2]append t#"a"+ c]foreach c
t[replace s"_"c]lowercase s]

Спробуйте в Інтернеті!

Більш зрозумілі:

f: func[s][
    a: charset[#"a"-#"z"#"A"-#"Z"]
    v: copy ""
    parse s[any[copy c a(append v to-string c)| skip]]
    k: 0
    t: copy ""
    repeat n (length? v) / 5[
        c: 0
        p: 16
        loop 5[
            if v/(k: k + 1) < #"a" [c: c + p]
            p: p / 2
        ]
        append t #"a" + c
    ]
    foreach c t[replace s "_" c]
    lowercase s
]

1

Java 10, 186 байт

s->{var b="";for(int i=0,c;i<s.length();)if((b+=(c=s.charAt(i++))>64&c<91?1:c>96&c<123?0:"").length()>4)s=s.replaceFirst("_",(char)(97+Byte.valueOf(b,2))+(b=""));return s.toLowerCase();}

Спробуйте в Інтернеті.

Пояснення:

s->{                            // Method with String as both parameter and return-type
  var b="";                     //  Binary-String, starting empty
  for(int i=0,c;i<s.length();)  //  Loop over the characters of the input-String
    if((b+=(c=s.charAt(i++))>64&c<91?
                                //   If the current character is a lowercase letter:
            1                   //    Append "1" to the binary-String
           :c>96&c<123?         //   Else-if it's an uppercase letter:
            0                   //    Append "0" to the binary-String
           :                    //   Else (not a letter):
            "")                 //    Append nothing to the binary-String
       .length()>4)             //   And if the length is now 5:
      s=s.replaceFirst("_",     //    Replace the first "_" in the input-String with:
           (char)(97+Byte.valueOf(b,2))
                                //     The binary-String as character
           +(b=""));            //    And reset the binary-String
  return s.toLowerCase();}      //  Return the modified input-String as lowercase


1

Japt, 25 байт

r'_@r\L mè\A sTT±5 ÍdIÄÃv

Спробуй це


Пояснення

r'_                           :Replace underscores
   @                          :Pass each match through a function
    r                         :  From original input remove
     \L                       :    /[^a-zA-Z]/g
        m                     :  Map
         è                    :    Count
          \A                  :      /[A-Z]/g
             s                :  Slice
              T               :    From index T (initially 0)
               T±5            :    To index T+=5
                   Í          :  Convert from base-2 string to base-10 integer
                     IÄ       :  Add 64+1
                    d         :  Get character at that codepoint
                       Ã      :End function
                        v     :Lowercase

1

Pyth, 36 байт

Km@Gim!}kGd2c@+r1GGQ5VQp?qN\_.(KZr0N

Спробуйте тут

Пояснення

Km@Gim!}kGd2c@+r1GGQ5VQp?qN\_.(KZr0N
             @+r1GGQ                   Get the letters from the input...
            c       5                  ... in chunks of 5.
 m        d                            For each chunk...
     m!}kG                             ... check if each letter is uppercase...
    i      2                           ... converted to binary...
  @G                                   ... and get the corresponding letter.
                     VQp               For each character in the input...
K                       ?qN\_.(KZ      ... if the character is '_', replace it...
                                 r0N   ... otherwise, lowercase it.

1

Python 3,5 , 296 байт

u=input();f=u.find('_');m=''.join([c for c in u if c.isalpha()]);z=[chr(int(''.join(['0'if o.islower() else'1' for o in l]),2)+65)for l in[m[h:h+5]for h in range(0,len(m),5)]if len(l)==5];[z.insert(v,d)for v,d in enumerate(u[f:])if d!="_"];u=list(u);u[f:]=z[:len(u[f:])];print(''.join(u).lower())

Спробуйте в Інтернеті

Перший код гольфу :)

(Я знаю, що його не мало в байтах, мені просто було цікаво робити 1 рядок)

Ось пояснення:


Введення користувача

u = вхід ()


Знаходить індекс першого _ у рядку та зберігає його

f = u.find ('_')


смужка рядків усіх символів, які не містять альфа

m = ''. join ([c для c in u, якщо c.isalpha ()])


Розбиває альфа-рядок на масив з кожним елементом, що складається з 5 символів

Вих. ['THeqU', 'ICkbr', 'ownFO', 'xJUMp', 'soVEr', 'thela']

Потім перетворює малі символи в 0, а великі символи - на 1

Вих. ['11001', '11000', '00011', '01110', '00110', '00000']

і перетворює двійковий рядок в ціле число, додає 65 і перетворює це в символ

Вих. ['z', 'y', 'd', 'o', 'g', 'a']

z = [chr (int (''. join (['0' if o.islower () else '1' for o in l]), 2) +65) для l в [m [h: h + 5] для h у діапазоні (0, len (m), 5)], якщо len (l) == 5]


знаходить усі символи після першого _ та штовхає їх у масив z у відповідних місцях (визначених вище)

Вих. ['z', 'y', '', 'd', 'o', 'g', '.', 'a']

[z.insert (v, d) для v, d у перерахунку (u [f:]), якщо d! = "_"]


розділимо наш рядок на список символів

u = список (u)


відрізаємо наш рядок від першого _ до кінця списку і замінимо його масивом z. Я також повинен був нарізати масив z на довжину розділеного рядка від першого _ до кінця, тому що я отримав додатковий символ у прикладі ледачого собаки ("a" наприкінці прикладів вище)

u [f:] = z [: len (список (u [f:]))]


* роздрукувати відповідь *

print (''. join (u) .lower ())



У гольфі є більше, ніж просто отримати все на одній лінії. 165 байт
Джо Кінг

Ви можете видалити пробіл між o.islower()і else, і я думаю, '1'і for. Крім того , ви можете змінити if d!="_"до if"_"!=d, але вище коментар вже робить це.
Zacharý


1

PowerShell , 121 байт

switch -r($args|% t*y){_{$_=$a[$n++]+97}[a-z]{$x+=$x+($_-le96);if(!(++$i%5)){$a+=,$x;$x=0};$_=$_-bor32}.{$r+=[char]$_}}$r

Спробуйте в Інтернеті!

Менше гольфу:

switch -Regex ($args|% toCharArray){
    _ {                     # is underscore
        $_=$a[$n++]+97      # get a char from the array of letter
    }

    [a-z] {                 # is letter
        $x+=$x+($_-le96)    # $x=2*$x+($_-le96)
        if(!(++$i%5)){      # if(++$i%5 -eq 0)
            $a+=,$x         # add an element to the array of letters
            $x=0            # init
        }
        $_=$_-bor32         # to lower
    }

    . {                     # is any char ('_' and letters included)
        $r+=[char]$_        # add the char to result
    }
}
$r

0

Perl 5 -p , 78 байт

for$h(s/\W|\d//gr=~y/a-z/0/r=~y/A-Z/1/r=~/.{5}/g){s%_%chr 65+oct"0b$h"%e}$_=lc

Спробуйте в Інтернеті!


Я зафіксував це ще на 3 байти, що робить вашу відповідь дещо кращою за чинними правилами.
Xcali

Не краще, але інше. Кожна мова + варіанти розглядаються окремо, не конкуруючи з тією ж мовою + іншими параметрами, як я її розумію.
msh210
Використовуючи наш веб-сайт, ви визнаєте, що прочитали та зрозуміли наші Політику щодо файлів cookie та Політику конфіденційності.
Licensed under cc by-sa 3.0 with attribution required.