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

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

Сначала преобразуйте каждую букву в строке в число в зависимости от ее положения в алфавите ( a= 1, b= 2и т. Д.). Пример:8 5 12 12 15
Дополните каждое число двумя символами с помощью 0s. Пример:08 05 12 12 15
Присоединиться. Пример: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к каждому элементу и удалите первый символ каждого int. Для приведенного выше примера +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

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

— Аднан
источник

Что ¦опять делает?

— Волшебная Осьминога Урна

@carusocomputing Удаляет первый элемент строки, списка и т. д.

— Аднан

Вне гениальности ...

— Волшебная Осьминога Урна

12

Python 2, 42 байта

f=lambda s:s and`ord(s[0])+4`[1:]+f(s[1:])

Проверьте это на Ideone .

— Деннис
источник

5

Не рекурсивный, с тем же количеством байтов:lambda s:''.join(`ord(x)+4`[1:]for x in s)

— Джонатан Аллан

8

Pyth, 11 10 байт

FNwpt`+4CN

Попытайся! Моя первая поездка в Пиф.

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='')

— Artyer
источник

Хорошая работа на вашей первой программе Pyth!

— HyperNeutrino

7

C, 55 43 байта

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

ideone

— o79y
источник

1

printf("%02d",*c++-96);}Короче и действителен, если я не ошибаюсь.

— Дада

6

Python, 46 байт

lambda x:"".join("%02i"%(ord(j)-96)for j in x)

Довольно просто. Попробуйте это на repl.it!

— Loovjo
источник

1

Ух ты, две совершенно разные попытки с одинаковым количеством байтов;)

— Kade

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 байта.

— Деннис

@ Денис Я только что сделал то же самое (иш) ...

— Джонатан Аллан

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=<<)

— Laikoni
источник

Вам не нужен второй набор паренов.

— 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)

— ETHproductions
источник

3

Japt, 10 байт

¡4+Xc)s s1

Вероятно, не становится короче этого ...

Проверьте это онлайн!

объяснение

¡           // Map each char X in the input by this function:
 4+Xc)      //   Take 4 + the char code of X.
      s s1  //   Convert to a string, then remove the first char.
            // Implicit: output last expression

— ETHproductions
источник

3

Java 7,60 байт

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

— Numberknot
источник

Этот ответ может быть недействительным, потому что он принимает char[]вместо String.

— HyperNeutrino

1

@AlexL. Списки символов считаются строками.

— Мартин Эндер

@MartinEnder Хорошо. Спасибо тебе за пояснение. У этого ответа есть мой ответ.

— HyperNeutrino

3

MATL, 12 11 байт

1 байт сохранен благодаря @Luis

4+!V4LZ)!le

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

— Suever
источник

3

Гексагония , 33 байта

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

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

Мм .. получил несколько неактивных операций в шестиугольнике, поэтому я вставил сегодняшнюю дату.

Расширенная форма с заменой даты на no-ops

   1 0 } {
  ' a ( { =
 ! { { \ . @
. . $ \ , < .
 - " : ! \ >
  . . . \ %
   . . . .

Инициализируйте 10и переместите указатель памяти куда-нибудь ...
$пропускает зеркало и ,читает байт. <ветви:
Если конец строки (-1 который не является положительным), он идет @и завершает программу.
В противном случае он вычитает 95(уменьшается a), а затем мы печатаем result / 10(целочисленное деление) и result % 10и снова зацикливаемся.

— Санни Пун
источник

2

Vim, 60 нажатий клавиш

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

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

— DJMcMayhem
источник

2

PHP, 58 байт

foreach(str_split($argv[1])as$c)printf("%02d",ord($c)%32);

— Йорг Хюльсерманн
источник

Вы можете -8 байтов итерировать как строку 50 байтов TIO , или -11 байтов вводить через $argn 47 байтов TIO .

— 640 КБ,

2

PowerShell v2 +, 44 байта

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

Принимает ввод $args[0], charпреобразует его как -array, передает в цикл. В каждой итерации мы берем текущий символ $_по модулю 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

— AdmBorkBork
источник

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 Правильно, снова вставил версию моего буфера фрагментов вместо протестированной версии

— Тон Хоспел

Бывает! :) Могу я задать вам не связанный вопрос? Есть ли у вас какие-либо идеи, как Perl-решение 8 байт на этот вопрос (обратный ввод) (анархия)?

— Дада

@ Дада, я бы сказал, что это невозможно в чистом Perl, поэтому я ожидаю, что это злоупотребление автоматизированной системой на этой стороне. Например, если бы вход поступил от STDIN, вы могли бы сделать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
  )
)

— Mama Fun Roll
источник

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:

— 640 КБ
источник

1

MATL , 11 байт

96-OH&YA!1e

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

         % Implicit input
96-      % Subtract 96. So 'a' becomes 1, 'b' becomes 2 etc
OH&YA    % Convert each number to 2 decimal digits. Gives a 2-column matrix
!1e      % Transpose and linearize into a row
         % Implicit display

— Луис Мендо
источник

1

Рубин, 53 46 байт

~~->s{s.chars.map{|c|(c.ord-96).to_s.rjust(2,?0)}.join}~~

->s{s.chars.map{|c|(c.ord+4).to_s[1..2]}.join}

— dkudriavtsev
источник

1

R 71 51 байт

Сохранено 20 байтов благодаря Billywob. Принимает ввод из stdin и выводит в stdout.

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

Примеры:

helloworld -> 08051212152315181204

Codegolf -> 0315040507151206

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

Джонна -> 1015081403051401

— rturnbull
источник

Вы можете использовать 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.

— Sherlock9
источник

0

Groovy, 51 байт

{it.collect{(((int)it-96)+"").padLeft(2,"0")}.join()}

— Урна волшебного осьминога
источник

0

Лабиринт, 40 байт

      ,")@
!{_10%! (
/       _
01_}:-69"

— ninjalj
источник

0

Befunge-98, 19 байт

#@~'`-:a/'0+,a%'0+,

— ninjalj
источник

0

Groovy - 31 байт

Groovy преобразование решения NumberKnot в Java:

{It.each {Е ( "% 02d", он-96)}}

Пример здесь, используя различные варианты:

http://ideone.com/vd0dTX

— GolfIsAGoodWalkSpoilt
источник

0

Пайк, 7 байт

F.oOO`t

Попробуй это здесь!

F       -  for i in input:
 .o     -       ord(i)
   OO   -      ^ + 4
     `  -     str(^)
      t -    ^[1:]
        - sum(^)

— синий
источник

0

C #, 54 байта

s=>String.Join("",s.Select(n=>(n<106?"0":"")+(n-96)));

— downrep_nation
источник

Кодировать алфавитный шифр

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

05AB1E , 11 6 байтов

Python 2, 42 байта

Pyth, 11 10 байт

C, 55 43 байта

Python, 46 байт

Желе , 9 7 байт

Как?

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

Perl, 29 байт

JavaScript (ES6), 52 49 байт

Japt, 10 байт

объяснение

Java 7,60 байт

MATL, 12 11 байт

Гексагония , 33 байта

Расширенная форма с заменой даты на no-ops

Vim, 60 нажатий клавиш

PHP, 58 байт

PowerShell v2 +, 44 байта

Perl, 24 байта

DASH , 27 байт

объяснение

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

IBM PC DOS 8088 в сборе, 33 28 27 байт

MATL , 11 байт

Рубин, 53 46 байт

R 71 51 байт

На самом деле , 10 байтов

Groovy, 51 байт

Лабиринт, 40 байт

Befunge-98, 19 байт

Groovy - 31 байт

Пайк, 7 байт

C #, 54 байта