Encode the alphabet cipher

Question

Given a string that contains only lowercase letters, encode that string with the alphabet cipher.

To encode with the alphabet cipher (I will be using the example hello):

First, convert each letter in the string to a number depending on its position in the alphabet (a = 1, b = 2, etc.) Example: 8 5 12 12 15
Pad each number to two characters with 0s. Example: 08 05 12 12 15
Join. Example: 0805121215

Test cases

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

Remember, this is code-golf, so the code with the fewest number of bytes wins.

\$\begingroup\$ Related. \$\endgroup\$
– Oliver Ni
Oct 28, 2016 at 17:09 — Oliver Ni, Oct 28, 2016 at 17:09

Community · Accepted Answer · 2020-06-17 09:04:33Z

1

Labyrinth, 40 bytes

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

edited Jun 17, 2020 at 9:04

CommunityBot

1

answered Oct 29, 2016 at 0:20

ninjalj

3,1361 gold badge21 silver badges21 bronze badges

Add a comment |

Community · Accepted Answer · 2020-06-17 09:04:33Z

1

R, 71 51 bytes

Saved 20 bytes thanks to Billywob. Takes input from stdin and outputs to stdout.

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

Examples:

helloworld -> 08051212152315181204

codegolf -> 0315040507151206

alphabetcipher -> 0112160801020520030916080518

johncena -> 1015081403051401

edited Jun 17, 2020 at 9:04

CommunityBot

1

answered Oct 28, 2016 at 19:20

rturnbull

3,87915 silver badges27 bronze badges

\$\begingroup\$ You can use utf8toInt(scan(,"))-96 instead of the whole match thing. Don't think there's a better way to handle the padding though. \$\endgroup\$
– Billywob
Oct 29, 2016 at 10:26
\$\begingroup\$ @Billywob Thanks! For the padding, I tried using formatC earlier but that worked out as needing one more byte than the current approach. \$\endgroup\$
– rturnbull
Oct 29, 2016 at 14:27

Add a comment |

Community · Accepted Answer · 2017-04-13 12:39:09Z

1

Actually, 10 bytes

Using the neat algorithm in Adnan's 05AB1E answer. Golfing suggestions welcome. Try it online!

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.

edited Apr 13, 2017 at 12:39

CommunityBot

1

answered Oct 30, 2016 at 5:48

Sherlock9

12.3k1 gold badge29 silver badges68 bronze badges

Add a comment |

Kamil Naja · Accepted Answer · 2019-02-28 01:02:45Z

1

Python 3, 47 bytes

f=lambda x:"".join(f"{ord(j)-96:02}"for j in x)

Try it online!

answered Feb 28, 2019 at 1:02

Kamil Naja

1615 bronze badges

Add a comment |

MilkyWay90 · Accepted Answer · 2019-08-09 17:19:26Z

Python 2, 51 49 45 42 bytes

lambda x:"".join(`ord(i)+4`[1:]for i in x)

Try it online!

Golfed to 49 bytes because .join will accept generators too

Golfed to 45 bytes because of lambdas

Golfed to 42 bytes because of switching to Python 2 and using `` (repr)

EXPLANATION:

Uses the trick in the 05AB1E answer.

lambda x:                               Declare a lambda accepting the string
    "".join(                            Join by the empty string
         `                              Repr (string representation)...
             ord(                       Unicode codepoint (A -> 65, a -> 97)
                 i                      The iterator in the for loop
             )
             + 4                        Added by 4
         `
         [1:]                           With the first character removed
    ) for i in x                        While a char i is in the string x

Community · Accepted Answer · 2020-06-17 09:04:33Z

Whitespace, 84 bytes

[N
S S N
_Create_Label_LOOP][S S S N
_Push_0][S N
S _Dupe_0][T    N
T   S _Read_STDIN_as_char][T    T   T   _Retrieve_input][S S S T    T   S S S S S N
_Push_96][T S S T   _Subtract][S N
S _Dupe][S S S T    S T S N
_Push_10][T S S T   _Subtract][N
T   T   S N
_If_neg_jump_to_Label_PRINT_0][N
S S T   N
_Create_Label_DONE_WITH_PRINT_0][T  N
S T _Print_as_integer][N
S N
N
_Jump_to_Label_LOOP][N
S S S N
_Create_Label_PRINT_0][S S S N
_Push_0][T  N
S T _Print_as_integer][N
S N
T   N
_Jump_to_Label_DONE_WITH_PRINT_0]

Letters S (space), T (tab), and N (new-line) added as highlighting only.
[..._some_action] added as explanation only.

Try it online (with raw spaces, tabs and new-lines only).

Explanation in pseudo-code:

Start LOOP:
  Integer c = STDIN as character
  c = c - 96
  If(c < 10):
    Print 0 as integer to STDOUT
  Print c as integer to STDOUT
  Go to next iteration of LOOP

mkst · Accepted Answer · 2020-03-26 15:03:08Z

1

K (oK), 13 bytes

Solution:

,//$3 10\'96!

Try it online!

Explanation:

,//$3 10\'96! / the solution
          96! / input modulo 96
    3 10\'    / convert to base 30ish
   $          / convert to string
,//           / flatten (,/) over (/)

answered Mar 26, 2020 at 15:03

mkst

5,17511 silver badges19 bronze badges

Add a comment |

Community · Accepted Answer · 2020-06-17 09:04:33Z

Google Sheets, 76 bytes

=ArrayFormula(Join(,Text(Code(Mid(A1,Row(Indirect("1:"&Len(A1))),1))-96,"00"

Sheets will automatically add three closing parentheses when you exit the cell.
Input is in cell A1

Indirect("1:"&Len(A1)) returns a range as tall as the input is long.
Row(Indirect(~)) returns the row numbers, so it's a list of numbers from 1 to the input length.
Mid(A1,Row(~),1) returns each character from the input, one at a time.
Code(Mid(~))-96 returns the ASCII code for each character, down-shifted so a = 1.
Text(Code(~),"00") pads the result above to two digits.
Join(,Text(~)) joins all those padded results without a delimiter.
ArrayFormula(Join(~)) makes all the stuff above operate on arrays. Without, the result would just be the first padded alphabet code: helloworld would return 08.

Bubbler · Accepted Answer · 2020-09-24 05:32:30Z

1

Labyrinth, 27 bytes

 ,_9 @
%! 6-:
0    _
1_!/01

Try it online!

How it works

        Start at the first valid instruction, going right
,_96-:  Push a char, subtract 96, duplicate
@       If it's negative (EOF), turn left and terminate
        Otherwise it is positive. Turn right and follow the cycle
_10/!   Integer-divide by 10, pop and print as integer
_10%!   Modulo 10, pop and print as integer
        Re-enter the start of the program, looping until EOF

answered Sep 24, 2020 at 5:32

Bubbler

76k5 gold badges146 silver badges454 bronze badges

\$\begingroup\$ By replacing the second _1 with # and some careful twisting of the code, this can be 25 bytes \$\endgroup\$
– Jo King ♦
Sep 30, 2020 at 11:41
\$\begingroup\$ Oh, I realise that the # change did nothing, aince I have to add a no-op. It was just the rearrangement of the code that golfed bytes \$\endgroup\$
– Jo King ♦
Sep 30, 2020 at 14:24

Add a comment |

mazzy · Accepted Answer · 2021-04-08 05:40:02Z

1

Powershell, 39 33 bytes

Inspired by AdmBorkBork's answer.

-6 bytes thanks @Julian

-join($args|%{'{0:D2}'-f($_-96)})

Try it online!

edited Apr 8, 2021 at 5:40

answered Nov 13, 2018 at 7:38

mazzy

7,0852 gold badges10 silver badges22 bronze badges

1

\$\begingroup\$ 33 bytes using splatting ;) \$\endgroup\$
– Julian
Apr 8, 2021 at 2:30

Add a comment |

Julian · Accepted Answer · 2022-07-31 23:09:36Z

1

Alice, 40 bytes

wi.hn$@'`-v
v o0'v$:a.<
v    <
>/ \K
  o

Try it online!

Flattened

wi.hn$@'`-.a:$v'0o>/o\K  Full solution
              >   ^      (additional redirections)

wi.hn$@               K  Where there are characters to read on the input
       '`-               Get the letter position in the alphabet
          .a:$v'0o       If it is less than 10, print a leading 0
                    o    Then print the number

answered Jul 31, 2022 at 23:09

Julian

3,0286 silver badges16 bronze badges

Add a comment |

oeuf · Accepted Answer · 2022-07-31 23:51:31Z

K (ngn/k), 31 29 bytes

,/{$[1=#$x;"0",$x;$x]}'-96+0+

Try it online!

Another function-less answer.

Explanation:

,/{$[1=#$x;"0",$x;$x]}'-96+0+       Main function.
                           0+       Convert each character to ASCII value.
                       -96+         Add with -96 for each of them
                      '             For each of the numbers
  {                  }              Execute a function that
   $[               ]               If
        $x                          The number converted to string
       #                            Length
     1=                             Is equal to 1
          ;"0",$x                   Then, pad "0" before the number
                 ;$x                Else, return the number converted to string
,/                                  Join

Dominic van Essen · Accepted Answer · 2022-08-15 20:59:56Z

1

Nibbles, 5.5 bytes (11 nibbles)

+.$>>`p+4o

Another port of Adnan's 05AB1E answer.
(Converting to base-10 digits and dropping the first one comes-out half-a-byte (1 nibble) longer: +.$>>`@~+4o).

 .$             # map over each character in the input:
   >>           #  drop the first element of
     `P         #  the string representation of
         o      #  the ASCII value
       +4       #  plus 4
+               # and finally concatenate it all

answered Aug 15, 2022 at 20:59

Dominic van Essen

34.7k2 gold badges18 silver badges54 bronze badges

Add a comment |

Community · Accepted Answer · 2020-06-17 09:04:33Z

0

Groovy, 51 Bytes

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

edited Jun 17, 2020 at 9:04

CommunityBot

1

answered Oct 28, 2016 at 17:38

Magic Octopus Urn

20.7k4 gold badges61 silver badges136 bronze badges

Add a comment |

ninjalj · Accepted Answer · 2016-10-29 10:44:36Z

0

Befunge-98, 19 bytes

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

answered Oct 29, 2016 at 10:44

ninjalj

3,1361 gold badge21 silver badges21 bronze badges

Add a comment |

GolfIsAGoodWalkSpoilt · Accepted Answer · 2016-10-29 10:53:43Z

0

Groovy - 31 bytes

Groovy conversion of NumberKnot's solution in java:

{it.each{printf("%02d",it-96)}}

Example here using various options:

http://ideone.com/vd0dTX

edited Oct 29, 2016 at 10:53

answered Oct 29, 2016 at 10:39

GolfIsAGoodWalkSpoilt

1112 bronze badges

Add a comment |

Community · Accepted Answer · 2020-06-17 09:04:33Z

0

Pyke, 7 bytes

F.oOO`t

Try it here!

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

edited Jun 17, 2020 at 9:04

CommunityBot

1

answered Oct 29, 2016 at 9:13

Blue

28.6k8 gold badges51 silver badges100 bronze badges

Add a comment |

downrep_nation · Accepted Answer · 2016-10-30 14:02:31Z

0

C#, 54 bytes

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

answered Oct 30, 2016 at 14:02

downrep_nation

1,1826 silver badges12 bronze badges

Add a comment |

ApolloZhu · Accepted Answer · 2016-10-30 22:40:56Z

0

Swift 3, 51

Dependency: Foundation for String(format:_:)

{$0.utf8.map{String(format:"%02d",$0-96)}.joined()} // where $0 is String

Usage:

Test

"codegolf".utf8.map{String(format:"%02d",$0-96)}.joined()

or

{$0.utf8.map{String(format:"%02d",$0-96)}.joined()}("codegolf")

edited Oct 30, 2016 at 22:40

answered Oct 30, 2016 at 8:59

ApolloZhu

615 bronze badges

Add a comment |

rayryeng · Accepted Answer · 2016-10-31 04:00:05Z

MATLAB / Octave, 32 24 bytes

@(s)sprintf('%02d',s-96)

Explanation

@(s) denotes an anonymous function whose input is expected to be a string and stored in the variable s.
The ASCII code for the letter a is 97. Therefore, subtracting the input string by 96 coalesces the string so that it becomes an array transforming the string into an array of numbers enumerated from 1 to 26, so we're now at input('','s')-96.
Using sprintf with the formatting specifier %02d takes the numbers in the array and ensures that there are 2 digits to output for each number. The numbers are thus combined to a single string and we output a single string. We will also pad the first digit with a 0 in case there is only 1 digit in an array.

Examples

>> f=@(s)sprintf('%02d',s-96)
>> f('helloworld')

ans =

08051212152315181204

>> f('codegolf')

ans =

0315040507151206

>> f('alphabetcipher')

ans =

0112160801020520030916080518

>> f('johncena')

ans =

1015081403051401

Try it online!

Try it here with ideone.

Elcan · Accepted Answer · 2018-11-13 07:49:42Z

0

Dart, 58 bytes

f(s)=>s.runes.map((t)=>'${t-96}'.padLeft(2,'0')).join('');

Try it online!

C# (Visual C# Interactive Compiler), 43 bytes

n=>string.Concat(n.Select(c=>$"{c%32:D2}"))

Try it online!

Alternative taking in a `List<char>`, 36 bytes

n=>n.ForEach(c=>Write($"{c%32:D2}"))

Try it online!

answered Feb 24, 2019 at 19:17

Gymhgy

7,99810 silver badges35 bronze badges

\$\begingroup\$ List<char> is a valid way to take in a string \$\endgroup\$
– ASCII-only
Feb 24, 2019 at 21:27
\$\begingroup\$ I know, I just thought of the alternative after my first solution so I put it after it \$\endgroup\$
– Gymhgy
Feb 24, 2019 at 21:30
\$\begingroup\$ 32 bytes with SelectMany (but returns an IEnumerable<char>). \$\endgroup\$
– the default.
Apr 24, 2020 at 14:52

Add a comment |

T_human · Accepted Answer · 2019-02-25 23:19:15Z

0

Rust, 197 191 181 bytes

|t:&String|->Option<String>{let a="abcdefghijklmnopqrstuvwxyz";let mut o=String::new();for c in t.chars(){let n=a.find(c)?+1;if n<10{o.push('0');}o.push_str(&n.to_string());}Some(o)

Reduced number of bytes thanks to Jonathan Fretch. Code should be runnable at https://repl.it/repls/RightMiniFunctions

Reduced number of bytes again thanks to ASCII-only.

edited Feb 25, 2019 at 23:19

answered Feb 24, 2019 at 14:58

T_human

313 bronze badges

\$\begingroup\$ Can you not save some bytes by removing whitespace in n < 10 or n = a.find(c)? Furthermore, would you mind adding a link to an online testing environment for ease of verification? \$\endgroup\$
– Jonathan Frech
Feb 24, 2019 at 17:05
\$\begingroup\$ You should at least rename the function to a 1-character name. Also, lambdas (anonymous functions) are valid \$\endgroup\$
– ASCII-only
Feb 24, 2019 at 21:28

Add a comment |

Community · Accepted Answer · 2020-06-17 09:04:33Z

0

Japt `-m`, 8 bytes

c +4 s Å

Run it online

edited Jun 17, 2020 at 9:04

CommunityBot

1

answered Feb 27, 2019 at 23:28

Oliver

7,8722 gold badges17 silver badges37 bronze badges

Add a comment |

wooshinyobject · Accepted Answer · 2019-02-28 16:32:42Z

0

MBASIC, 112 bytes

I could save 8 bytes on line 2 if STR$() didn't insist on including a leading space.

1 INPUT S$:FOR I=1 TO LEN(S$):A=ASC(MID$(S$,I,1))-96:IF A<10 THEN O$=O$+"0"
2 O$=O$+MID$(STR$(A),2):NEXT:PRINT O$

Sample output

? alphabetcipher
0112160801020520030916080518

answered Feb 28, 2019 at 16:32

wooshinyobject

1916 bronze badges

Add a comment |

score 0 · Accepted Answer · 2020-01-25 12:29:58Z

0

GolfScript, 10 bytes

In GolfScript converting to a character is unneccecary because strings are character arrays.

{4+''+1>}%

Try it online!

Explanation

{       }% # Foreach over the implicit codepoint list
 4+        # Add 4 to every item of the list
   ''+     # Convert to a string
      1>   # Filter out all characters after the 1st character,
           # Including the 1st character

edited Jan 25, 2020 at 12:29

answered Jan 25, 2020 at 12:13

user85052

Add a comment |

user92069user92069 · Accepted Answer · 2020-03-26 13:49:27Z

0

Erlang (escript), 39 bytes

The usual +4 approach.

f(X)->[tl(integer_to_list(I+4))||I<-X].

Try it online!

answered Mar 26, 2020 at 13:49

user92069

Add a comment |

Wasif · Accepted Answer · 2020-03-26 17:32:34Z

0

PowerShell, 99 bytes

([char[]]"$args"|%{"0$((@(65..90|%{[char]$_})-join'').indexof($_.tostring().toupper())+1)"})-join''

Try it online!

answered Mar 26, 2020 at 17:32

Wasif

12.3k1 gold badge17 silver badges47 bronze badges

Add a comment |

DLosc · Accepted Answer · 2022-08-01 17:28:12Z

0

Acc!!, 55 bytes

N-6
Count i while _/5 {
Write _/10+39
Write _%10+48
N-6

Try it online!

Explanation

# Read a character, subtract 6 from its charcode, and store in the accumulator
N-6
# Loop while the character was not newline (i.e. the accumulator is >= 5)
Count i while _/5 {
  # Subtract 90 from the accumulator, divide by 10, and output as a digit
  Write (_-90)/10+48
  # Output the accumulator mod 10 as a digit
  Write _%10+48
  # Read the next character
  N-6
}

answered Aug 1, 2022 at 17:28

DLosc

39.3k5 gold badges72 silver badges135 bronze badges

Add a comment |

naffetS · Accepted Answer · 2022-08-01 20:58:09Z

0

Knight, 49 bytes

;;;;=y""=xP=i 0W>+1Lx=i+1i=y+yG+4A Gx-i 1 1 1 2Oy

Try it online!

What a mess.

Ungolfed:

; = y ""
; = x PROMPT
; = i 0
; WHILE (> (+ 1 LENGTH (x)) (= i (+ 1 i))
    = y (+ y (GET (+ 4 (ASCII (GET x (- i 1) 1))) 1 2))
: OUTPUT y

edited Aug 1, 2022 at 20:58

answered Aug 1, 2022 at 20:23

naffetS

12.4k2 gold badges18 silver badges48 bronze badges

Add a comment |

Encode the alphabet cipher

Test cases

64 Answers 64

Labyrinth, 40 bytes

R, 71 51 bytes

Actually, 10 bytes

Python 3, 47 bytes

Python 2, 51 49 45 42 bytes

Whitespace, 84 bytes

K (oK), 13 bytes

Google Sheets, 76 bytes

Labyrinth, 27 bytes

How it works

Powershell, 39 33 bytes

Alice, 40 bytes

Flattened

K (ngn/k), 31 29 bytes

Nibbles, 5.5 bytes (11 nibbles)

Groovy, 51 Bytes

Befunge-98, 19 bytes

Groovy - 31 bytes

Pyke, 7 bytes

C#, 54 bytes

Swift 3, 51

Usage:

MATLAB / Octave, 32 24 bytes

Explanation

Examples

Try it online!

Dart, 58 bytes

C# (Visual C# Interactive Compiler), 43 bytes

Alternative taking in a List<char>, 36 bytes

Rust, 197 191 181 bytes

Japt -m, 8 bytes

MBASIC, 112 bytes

GolfScript, 10 bytes

Explanation

Erlang (escript), 39 bytes

PowerShell, 99 bytes

Acc!!, 55 bytes

Explanation

Knight, 49 bytes

Your Answer

Sign up or log in

Post as a guest

Not the answer you're looking for? Browse other questions tagged code-golfstringnumberalphabetcipher or ask your own question.

Linked

Related

Hot Network Questions

Alternative taking in a `List<char>`, 36 bytes

Japt `-m`, 8 bytes

Not the answer you're looking for? Browse other questions tagged
code-golf
string
number
alphabet
cipher
or ask your own question.