Кодуйте шифр алфавіту


24

Враховуючи рядок, що містить лише малі літери, кодуйте цей рядок за допомогою шифру алфавіту.

Для кодування за допомогою шифру алфавіту (я буду використовувати приклад hello):

  1. Спочатку перетворіть кожну букву в рядку в число залежно від її положення в алфавіті ( a= 1, b= 2тощо) Приклад:8 5 12 12 15
  2. Прокладіть кожне число до двох символів за допомогою 0s. Приклад:08 05 12 12 15
  3. Приєднуйтесь. Приклад:0805121215

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

helloworld -> 08051212152315181204
codegolf -> 0315040507151206
alphabetcipher -> 0112160801020520030916080518
johncena -> 1015081403051401

Пам'ятайте, що це , тому код з найменшою кількістю байтів виграє.


Відповіді:


23

05AB1E , 11 6 байт

Код:

Ç4+€¦J

Пояснення:

Спочатку ми перетворюємо рядок у їх значення ASCII. codegolfстане:

[99, 111, 100, 101, 103, 111, 108, 102]

Щоб дійти до індексів алфавіту, ви віднімаєте 96:

[3, 15, 4, 5, 7, 15, 12, 6]

Для прокладки нулями додайте 100до кожного елемента та видаліть перший символ кожного вкладеного елемента. Для наведеного вище прикладу +100було б:

[103, 115, 104, 105, 107, 115, 112, 106]

І видалення першого символу кожного призведе до:

[03, 15, 04, 05, 07, 15, 12, 06] 

Ми можемо об'єднати обидва етапи вище ( -96та і +100) частини до справедливих +4. Для коду:

Ç       # Convert to an array of ASCII code points
 4+     # Add four to each element in the array
   €¦   # Remove the first character of each element
     J  # Join to a single string

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


Що ¦робити знову?
Magic Octopus Urn

@carusocomputing Видаляє перший елемент рядка, списку тощо
Adnan

Поза геніальності ...
Чарівний восьминіг Урна


8

Pyth, 11 10 байт

FNwpt`+4CN

Спробуй це! Перший мій піт на Pyth.

FNwpt`+4CN
FNw         # For N in w (w is input, N will be single char)
   p        # Print without newline
        CN  # Int with code point `N`
      +4CN  # Add 4 to int with code point N
     `+4CN  # representation of above (basically to string)
    t`+4CN  # Tail (All but first character)

Еквівалент Python:

for N in input():
    print(repr(ord(N) + 4)[1:], end='')

Гарна робота у вашій першій програмі Pyth!
HyperNeutrino

7

C, 55 43 байти

f(char*c){for(;*c;)printf("%02d",*c++-96);}

ідеоне


1
printf("%02d",*c++-96);}коротше і дійсне, якщо я не помиляюся.
Дада


6

Желе , 9 7 байт

O+4ṾḊ$€

TryItOnline

Як?

O+4ṾḊ$€ - Main link: s                                e.g. hello
O       - cast to ordinals                            e.g. [ 104,  101,  108,  108,  111]
 +4     - add 4                                       e.g. [  108,  109,  112,  112,  115]
     $€ - last two links as a monad for €ach
   Ṿ    -    uneval, effectively converts to strings  e.g. ["108","109","112","112","115"]
    Ḋ   -    dequeue, remove the leading '1'          e.g. [ "08", "09", "12", "12", "15"]
        - implicit print                              e.g. "0809121215"

Я придумав O+4DḊ€FṾ€той самий підрахунок, можливо, зіграний
ETHproductions

@ETHproductions O+4Ṿ€Ḋ€зберігає 2 байти.
Денніс

@Dennis Я щойно зробив те саме (ish) ...
Джонатан Аллан

4

Haskell, сорок четвертий 30 28 байт

(>>=tail.show.(+4).fromEnum)

Використовуючи +4підхід з відповіді Аднана, економиться 14 байт.

Спробуйте це на Ideone. Використання:

> (>>=tail.show.(+4).fromEnum)"codegolf"
"0315040507151206"

Два байти від xnor . Стара версія:

f a=['0'|a<'k']++(show$fromEnum a-96)
(f=<<)

Вам не потрібен другий набір паролів.
xnor

3

Perl, 29 байт

28 байт коду + -nпрапор.

printf"%02s",-96+ord for/./g

Виконати з:

perl -ne 'printf"%02s",-96+ord for/./g' <<< "helloworld"

3

JavaScript (ES6), 52 49 байт

f=s=>s&&(s.charCodeAt()+4+f(s.slice(1))).slice(1)

Рекурсія виявилася на 3 байти коротшою .replace :

s=>s.replace(/./g,s=>(s.charCodeAt()+4+"").slice(1))

parseInt(s,36)для кожного підходу трохи довше, тому що ви повинні змінитись 4на 91:

s=>s.replace(/./g,s=>(parseInt(s,36)+91+"").slice(1))
f=s=>s&&(parseInt(s[0],36)+91+f(s.slice(1))).slice(1)


3

Java 7,60 байт

void f(char[]s){for(int i:s)System.out.printf("%02d",i-96);} 

Ця відповідь може бути неправдивою, оскільки використовується char[]замість а String.
HyperNeutrino


@MartinEnder Гаразд. Дякую за роз’яснення. Ця відповідь мою позицію.
HyperNeutrino


3

Шестикутник , 33 байти

10}{'a({=!{{\.@29$\,<.-":!\>Oct\%

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

М-м .. отримав декілька непогашених у шестикутнику, тому я поставив сьогоднішню дату.

Розширена форма з датою, заміненою на відсутність опцій

   1 0 } {
  ' a ( { =
 ! { { \ . @
. . $ \ , < .
 - " : ! \ >
  . . . \ %
   . . . .
  1. Ініціалізуйте 10і перемістіть покажчик пам'яті кудись ...
  2. $пропускає дзеркало і ,читає байт. <гілки:
  3. Якщо кінець рядка ( -1що не є позитивним), він переходить до@ та припиняє програму.
  4. В іншому випадку він віднімає 95(зменшується a), а потім друкуємо result / 10(ціле ділення) і result % 10знову петлю.

2

Vim, 60 натискань клавіш

:s/./\=char2nr(submatch(0))-96."\r"/g
:%s/\<\d\n/0&
V{gJ

Рішення на основі майже повністю гегексу. Як завжди, використання регістра eval робить його нецензурно довгим.



2

PowerShell v2 +, 44 байти

-join([char[]]$args[0]|%{"{0:D2}"-f($_%32)})

Бере введення $args[0], charпередає його як- масив, подає у цикл. При кожній ітерації ми беремо поточний $_модуль символів 32, який неявно відзначається як значення ASCII. Зручно ;-), це вирівнюється так a = 1, b = 2, і т. Д. Він подається в -fоператор ormat, що працює на рядку "{0:D2}", який вказує двозначний мінімум (тобто, якщо потрібно, він попередньо пред'являє нульовий нуль). Ці рядки цифр інкапсульовані в паренах, -joinоб'єднані в один рядок і залишені на конвеєрі. Виведення через неявне Write-Outputвідбувається під час завершення програми.

PS C:\Tools\Scripts\golfing> .\encode-alphabet-cipher.ps1 'hello'
0805121215

PS C:\Tools\Scripts\golfing> .\encode-alphabet-cipher.ps1 'helloworld'
08051212152315181204

PS C:\Tools\Scripts\golfing> .\encode-alphabet-cipher.ps1 'codegolf'
0315040507151206

PS C:\Tools\Scripts\golfing> .\encode-alphabet-cipher.ps1 'johncena'
1015081403051401

2

Perl, 24 байти

Включає +1 для -p

Введіть дані про STDIN:

encode.pl <<< hello

encode.pl

#!/usr/bin/perl -p
s/./substr 4+ord$&,1/eg

Чудово зроблено. Я думаю, ти, мабуть, мав на увазі 4+ord$&замість цього 5+ord$&;-)
Дада

@Dada Right, знову вставив версію мого буфера фрагментів замість тестованої версії
Ton Hospel

Буває! :) Чи можу я задати вам незв'язане питання? Чи маєте ви якесь уявлення, що таке 8 байт perl для цього питання (зворотний вхід) (про анархію)?
Дада

@Dada Я б сказав, що це неможливо в чистому стилі, тому я думаю, що це деяке зловживання автоматизованою системою з цього боку. Наприклад, якщо вхід exec rev
надійде

Правильно, це має сенс, дякую! Мені важко було зрозуміти це, оскільки printце 5 байт, <>це ще 2, тому мені було цікаво, що було вбудовано в 1 байт, про який я не чув!
Дада

2

DASH , 27 байт

@><""(->@rstr["."""]+4#0)#0

Приклад використання:

(@><""(->@rstr["."""]+4#0)#0)"helloworld"

Пояснення

@ (                         #. take input through a lambda
  join "" (                 #. join with newlines the following:
    (map                    #. result of mapping
      @ (                   #. this lambda
        rstr ["." ; ""] (     #. replace first char w/ empty string:
          + 4 #0               #. mapped item's codepoint + 4
        )
      )
    ) #0                    #. over the argument
  )
)

2

Пакетна, 256 239 237 байт

@echo off
set/ps=
set r=
set a=abcdefghijklmnopqrstuvwxyz
:g
set c=%a%
for /l %%i in (101,1,126)do call:l %%i
set s=%s:~1%
if not "%s%"=="" goto g
echo %r%
exit/b
:l
set i=%1
if %c:~,1%==%s:~,1% set r=%r%%i:~1%
set c=%c:~1%

Здійснює введення даних STDIN.


2

Збірка IBM PC DOS 8088, 33 28 27 байт

Зібраний двійковий:

00000000: be82 00ac 2c60 7812 d40a 0530 3092 86f2  ....,`x....00...
00000010: b402 cd21 86f2 cd21 ebe9 c3              ...!...!...

Не зібрано:

BE 0082     MOV  SI, 82H        ; point SI to command line string 
        CH_LOOP: 
AC          LODSB               ; load next char into AL
2C 60       SUB  AL, 'a'-1      ; convert ASCII to a=1,b=2...z=26 
78 12       JS   DONE           ; if char is terminator or not valid, exit
D4 0A       AAM                 ; convert binary to BCD 
05 3030     ADD  AX, '00'       ; convert BCD to ASCII 
92          XCHG DX, AX         ; save AX to DX for display 
86 F2       XCHG DH, DL         ; reverse bytes 
B4 02       MOV  AH, 2          ; DOS display char function 
CD 21       INT  21H            ; write first digit 
86 F2       XCHG DH, DL         ; reverse bytes back 
CD 21       INT  21H            ; write second digit 
EB E9       JMP  CH_LOOP        ; restart loop 
        DONE: 
C3          RET                 ; return to DOS

Автономний виконуваний ПК DOS. Рядок введення з командного рядка, вихід у консоль.

I / O:

enter image description here




1

R, 71 51 байт

Збережено 20 байт завдяки Billywob. Приймає введення з stdin та виводить у stdout.

cat(sprintf("%02d",utf8ToInt(scan(,""))-96),sep="")

Приклади:

helloworld -> 08051212152315181204

codegolf -> 0315040507151206

алфавітний штрих -> 0112160801020520030916080518

johncena -> 1015081403051401


Ви можете використовувати utf8toInt(scan(,"))-96замість усієї відповідності. Не думаю, що є кращий спосіб впоратися з накладкою, хоча.
Billywob

@Billywob Дякую! Для прокладки я намагався використовувати formatCраніше, але це спрацювало як потрібен ще один байт, ніж поточний підхід.
rturnbull

1

Власне , 10 байт

Використання акуратного алгоритму у відповіді Аднана 05AB1E . Пропозиції з гольфу вітаються. Спробуйте в Інтернеті!

O4+`$pX`MΣ

Ungolfing

         Implicit input s.
O        ord() every char in s.
4+       Add 4 to every ord in s.
`...`M   Map the following function over s. Variable m.
  $        Push str(m).
  pX       Discard the first char of str(m).
           Invariably this is a `1` and we get our ciphered m.
Σ        sum() everything to get one string.
         Implicit return.






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