Kolmogorov shifter


37

Produisez ou affichez les trois lignes de texte suivantes, telles qu’elles sont illustrées ci-dessous. Un retour à la ligne est accepté.

 bC#eF&hI)kL,nO/qR2tU5wX8z
A!cD$fG'iJ*lM-oP0rS3uV6xY9
aB"dE%gH(jK+mN.pQ1sT4vW7yZ

Ce bloc de texte est identique à celui ci-dessous, mais la nième colonne est tournée n fois vers le bas:

 !"#$%&'()*+,-./0123456789
ABCDEFGHIJKLMNOPQRSTUVWXYZ
abcdefghijklmnopqrstuvwxyz

Gardez à l'esprit qu'il s'agit d'un , le format de sortie n'est donc pas flexible.


1
Le texte se termine-t-il sur une nouvelle ligne? En particulier, est-il possible de terminer par '.... z \ n \ n`?
Ton Hospel

2
@Tom non, il ne devrait pas y avoir plus d'une nouvelle ligne
Stewie Griffin

Un newline de premier plan est-il acceptable?
Dom Hastings

@DomHastings Non, désolé.
Stewie Griffin

(pour de nombreuses langues (HTML, ///, Texte, Bubblegum), coder en dur ces 80 caractères serait (à coup sûr, à l'exception de Bubblegum) le plus court, c'est ennuyeux, veuillez ne pas le faire)
user202729

Réponses:


18

Java 8, 169 162 150 146 116 113 106 95 95 93 93 91 91 90 84 octets

Oui, nous l'avons finalement fait! Nous avons battu la sortie littérale de 88 octets qui se trouve en bas. Merci à tous ceux qui ont participé au golf!

v->{for(int i=0,t=0;++i<81;System.out.printf("%c",i%27<1?10:(4-t++%3)*32%97+i%27));}

-7 octets grâce à @StewieGriffin .
-42 octets grâce à @Neil .
-11 octets grâce à @PeterTaylor .
-3 octets grâce à @ OlivierGrégoire .
-6 octets grâce à @ OlivierGrégoire et @Neil (Olivier a suggéré une réponse JavaScript de Neil ).

Essayez-le en ligne.

Explication:

v->{                          // Method with empty unused parameter and no return-type
  for(int i=0,t=0;++i<81;     //  Loop from 1 to 81 (exclusive)
     System.out.printf("%c",  //   Print the following character:
      i%27<1?                 //    If it's the last column
       10                     //     Print a new-line
      :                       //    Else:
       (4-t++%3)*32%97+i%27   //     Print the correct character based on the index

Voyez ici ce que chacune des parties arithmétiques fait et comment elle se termine avec les bons caractères.


Java 8, 88 octets

v->" bC#eF&hI)kL,nO/qR2tU5wX8z\nA!cD$fG'iJ*lM-oP0rS3uV6xY9\naB\"dE%gH(jK+mN.pQ1sT4vW7yZ"

Ennuyeux, mais utiliser la rotation prévue des colonnes ne sera certainement pas plus court en Java. Je suis corrigé! Publiera une solution dans un moment ou de l'autre pour voir combien d'octets il diffère. Apparemment, la différence est juste -4 octets! :RÉ

Essayez-le en ligne.



1
Sur la base de mon approche CJam, je suis à peu près sûr qu'il devrait exister une formule arithmétique assez simple pour le point de code à la position (x, y), ce qui devrait permettre de dépasser votre approche de 169 octets et peut-être même la chaîne littérale.
Martin Ender

1
116 octets:v->{String a="";for(int i=2,j,t;++i<6;){for(j=31;++j<58;a+=(char)(t<1?j+65:t>1?j:j+33))t=(j-i)%3;a+="\n";}return a;}
Neil

1
Ahem, 95:v->{for(int i=0,r,c;++i<81;System.out.printf("%c",c<1?10:32*++r+c-1/r))r=(i/27+28-(c=i%27))%3;}
Peter Taylor

1
92 octets ( centièrement supprimés )
Olivier Grégoire

4
@ OlivierGrégoire Java sous JavaScript? Qu'ai-je fait de mal?
Neil

13

Husk , 13 octets

Tzṙṫ26¡m→"Aa 

Notez l'espace de fuite. Essayez-le en ligne!

Explication

Tzṙṫ26¡m→"Aa   No input.
         "Aa   The string "Aa ".
      ¡        Iterate
       m→      map successor: ["Aa ","Bb!","Cc\"","Dd#",..
 z             Zip with
   ṫ26         the reversed range [26,25,24,..,1]
  ṙ            using rotation: [" Aa","b!B",..,"z9Z"]
               This also truncates the list to length 26.
T              Transpose, implicitly print separated by newlines.

11

SPL (langage de programmation Shakespeare), 1679 1618 1600 octets

.
Ajax,.
Ford,.
Puck,.
Act I:.
Scene I:.
[Enter Ajax and Ford]
Ajax:
You are the remainder of the quotient between the sum of the remainder of the quotient between the product of me and a fat joy and the sum of the cube of a big red day and the difference between a red fat pig and a big old fat cow and the quotient between me and the sum of a day and the square of the sum of a joy and a big red day and the sum of a cat and a fat son.
[Exit Ajax]
[Enter Puck]
Ford:
Am I as good as nothing? If so, you are a bad big old red fat day. Am I as good as a joy? If so, you are the sum of a joy and a the cube of an old bad day. Am I as good as a big day? If so, you are the sum of the square of the sum of a big red fat cat and an old cow and the sum of an old war and a lie.
[Exit Ford]
[Enter Ajax]
Ajax:
You are the sum of thyself and the remainder of the quotient between me and the sum of a man and the square of the sum of a son and a big fat cow. Speak thy mind!
[Exit Puck]
[Enter Ford]
Ford:
You are the sum of yourself and a son.
Ajax:
You are the remainder of the quotient between me and the sum of a cat and the square of the sum of a cow and an old red sky.
Ford:
Am I as good as nothing? If so, let us proceed to scene III.
Scene II:.
Ajax:
You are the product of the sum of a fat man and a cow and the sum of a man and the square of the sum of a cat and a big red son. Are you not better than me? If so, let us return to act I. Let us proceed to scene IV.
Scene III:.
Ajax:
You are the sum of a big old fat cat and a red cow. Speak thy mind! Let us return to scene II.
Scene IV:.
[Exeunt]

J'ai eu quelques problèmes avec l'interprète ( https://github.com/drsam94/Spl ), donc ce n'est pas aussi petit que je le pensais. Mais au moins ça marche :)


Voici la même logique en PHP, pour rendre un peu plus facile la tâche de voir ce qui se passe.

<?php

Act1Scene1:
$ford = ((2 * $ajax) % 52 + $ajax / 26) % 3;
if ($ford == 0) {
    $puck = 32;
}
if ($ford == 1) {
    $puck = 65;
}
if ($ford == 2) {
    $puck = 97;
}
$puck = $ajax % 26 + $puck;
echo chr($puck);

$ajax = $ajax + 1;

$ford = $ajax % 26;
if ($ford == 0) {
    goto Act1Scene3;
}

Act1Scene2:
if ($ajax < 78) {
    goto Act1Scene1;
}
goto Act1Scene4;

Act1Scene3:
$ford = 10;
echo chr($ford);
goto Act1Scene2;

Act1Scene4:

4
Les discours dans ce son ressemblent à un livre dément du Dr. Seuss. : ^ D
DLosc

10

JavaScript (ES6), 86 75 octets

f=(i=k=0)=>i<80?String.fromCharCode(++i%27?(4-k++%3)*32%97+i%27:10)+f(i):''

Edit: 11 octets enregistrés grâce à @Ryan. Maintenant, 10 octets plus court que le littéral!

JavaScript (Node.js) , 64 octets

f=(i=k=0)=>i<80?Buffer([++i%27?(4-k++%3)*32%97+i%27:10])+f(i):''

Essayez-le en ligne! Merci à @Ryan.


2
Vous pouvez économiser 11 octets avec récursivité: f=(i=k=0)=>i-80?String.fromCharCode(++i%27?(4-k++%3)*32%97+i%27:10)+f(i):''et 11 autres dans un environnement f=(i=k=0)=>i-80?Buffer([++i%27?(4-k++%3)*32%97+i%27:10])+f(i):''
nodal en passant

8

05AB1E , 17 15 octets

2 octets sauvés grâce à Erik the Outgolfer

žQAuA)øε¼¾GÁ]ø»

Essayez-le en ligne!

Explication

žQ                 # push the list of printable ascii characters
  Au               # push upper-case alphabet
    A              # push lower-case alphabet
     )ø            # zip
       ε           # apply to each
        ¼          # increment counter
         ¾G        # for N in [1 ... counter] do:
           Á       # rotate string right
            ]      # end loops
             ø     # zip
              »    # print list joined by newlines

@ Emigna Je pense que ça εNdevrait être une chose. Combine les deux idées de vyNFÁ])ø»et les vôtres.
Urne Magic Octopus

@ MagicOctopusUrn: Oui, j'ai souvent voulu Nutiliser ε. Techniquement, il n’est pas adapté, ce εn’est pas une boucle, bien que, comme nous l’utilisons parfois comme tel, il serait bien de l’avoir.
Emigna

8

CJam (18 octets)

26{_" Aa"f+m>}%zN*

Démo en ligne

Dissection

L'approche évidente consiste à générer les lignes d'origine, zip, rotation avec ee::m>et zip arrière. Mais ee::c'est assez long, et c'est plus court pour générer les colonnes directement.

26{         e# For i = 0 to 25...
  _" Aa"f+  e#   Generate the unrotated column by offsets from the starting chars
  m>        e#   Rotate the appropriate distance
}%
zN*         e# Zip and join the rows with newlines

8

Python 2 , 72 octets

x=98
exec"r='';exec'r+=chr(x/3);x+=291*(x<180)-94;'*26;print r;x-=78;"*3

Essayez-le en ligne!

Cela fonctionne en supprimant 31.333..du caractère précédent, en ajoutant 97lorsque le point de code précédent est inférieur à 60, et en soustrayant 26à la fin de chaque ligne.


8

R , 64 63 octets

cat(intToUtf8(c(32:57,10,65:90,10,97:122,10)[(0:80*55)%%81+1]))

Essayez-le en ligne!

-1 octet grâce à Giuseppe

J'y suis arrivé par de nombreux essais et erreurs, alors je me bats avec une explication concise. Essentiellement, au lieu des codes de caractères, j'ai commencé par une séquence plus simple de 1:81 représentant le bloc de texte d'origine (3 * 26 plus 3 nouvelles lignes), puis j'ai examiné les indices indiquant où ces valeurs se retrouvent dans le bloc pivoté. Cela fait suite à une séquence régulière qui diminue de 26 à chaque fois, modulo 81 (ou de manière équivalente, augmente de 55 mod 81). Il s’agissait ensuite de recréer cette séquence (0:80*55)%%81+1]), de mapper les valeurs unicode réelles c(32:57,10,65:90,10,97:122,10), de convertir en caractères et d’imprimer.


bien joué! Je vais récompenser cela, même si je m'attendais vraiment à une autre solution dans la plage des 80 octets et plus, alors je pense que je vais augmenter la prime à 100.
Giuseppe

@ Giuseppe Pas de soucis! Pour être honnête, le défi est plus important que le représentant.
user2390246

ah, vous pouvez enregistrer un octet en utilisant au 55lieu de -26depuis -26 == 55(mod 81).
Giuseppe

@ Giuseppe Merci pour la suggestion et pour la prime!
user2390246

6

Japt , 17 15 octets

"@`"
;By@=cÄ é

Testez-le en ligne!

Explication

"@`"         The string "@`\x1F". The following newline sets U to this string.
;            Reset variables A-L to various values. B is set to
 B           the uppercase alphabet, which we only use to get a length of 26.
  y@         Map each column Z (initially just the letter itself) through this function:
     cÄ        Increment each char-code in U.
        é      Rotate by 1 character.
    =          Set U to the result to keep the chain going.
             This generates the 26 columns exactly how we needed them.
             Implicit: output result of last expression

7 autres 15 titres possibles:

;By@" Aa"c+Y éY
;ByÈpv)iSc+Y)éY
;ByÈ+v)iSc+Y)éY
;ByÈpv)iYd32)éY
;ByÈ+v)iYd32)éY
;ByÈpv)i32dY)éY
;ByÈ+v)i32dY)éY

5

CJam , 23 21 octets

3{26{_I-" aA"=+}/N}fI

Essayez-le en ligne!

Explication

3{         e# For I from 0 to 2...
  26{      e#   For i 0 to 25...
    _I-    e#     Duplicate i and subtract I. This shifts the starting
           e#     character of each line left in the following string.
    " aA"= e#     Pick the character at the start of the unrotated line
           e#     of the current character. We basically just cycle
           e#     through non-letters, lower-case, upper-case, which is
           e#     the cycle throughout the result. Due to the I-, when
           e#     We get to the second line we start from A, and on the
           e#     third line we start from a.
    +      e#     Add i to the starting character to get the correct
           e#     column.
  }/
  N        e#   Push a linefeed.
}fI

3
Très belle explication. J'aime particulièrement: "Poussez cette chaîne au hasard." : P
Stewie Griffin

2
@StewieGriffin désolé, cette chaîne a dû disparaître.
Martin Ender

5

MATL , 16 octets

1Y2tk9V:v26:l&YS

Essayez-le en ligne!

Explication

1Y2     % Push 'AB...Z' (predefined literal)
t       % Duplicate
k       % Maker lowercase
9V      % Push 9, convert to string representation: gives char '9'
:       % Range. For chars, gives string from space to that
v       % Concatenate vertically. Gives a 3×26 char matrix
26      % Push 26
:       % Range. For numbers, gives numeric vector from 1 to that
l&YS    % Circularly shift each column of the first input (char matrix)
        % by the amount specified by the second input (numeric vector).
        % Implicitly display

2
Nice :) J'ai encore du mal à changer les formats d'E / S par défaut des fonctions ... :(
Stewie Griffin

1
oohh très sympa avec l'ordre des cordes à utiliser 1:26comme shift. Je devrais essayer ça dans ma réponse au R ...
Giuseppe

1
@StewieGriffin La méta-fonction &était un excellent ajout, d'après l'idée de Suever :-)
Luis Mendo

@ Giuseppe Oui, cela a sauvé un octet :-)
Luis Mendo

5

Gelée , 13 octets

26“ aA‘ẋs+ḶỌY

Essayez-le en ligne!

Comment ça marche

26“ aA‘ẋs+ḶỌY  Main link. No arguments.

26             Set the argument and the return value to 26.
  “ aA‘ẋ       Repeat [32, 97, 65] (code points of ' ', 'a', and 'A') 26 times.
        s      Split the result into chunks of length 26.
          Ḷ    Unlength; yield [0, ..., 25].
         +     Add [0, ..., 25] to each of the chunks.
           Ọ   Unordinal; cast all integers to characters.
            Y  Jojn, separating by linefeeds.

5

Perl 5 , 46 octets

print map{chr$n+++ord,$/x!($n%=26)}($",A,a)x26

Enregistré 13 octets grâce à @TonHospel magie de Arcane de!

Essayez-le en ligne!


Ton $i++est juste $_et tu peux utiliser sayau lieu de, printalors c'est vraiment50
Ton Hospel

Mmm, et il est facile de se débarrasser de la {}dans la carte aussi pour 49:say map$/x/26|52/.chr$_%26+(32,65,97)[$_%3],0..77
Ton Hospel

@ TonHospel Oui, bien sûr! Merci!
Dom Hastings

Redessiner la boucle donne 47: print map{chr$n+++$_,$/x!($n%=26)}(32,97,65)x26. Malheureusement, sayune nouvelle ligne de trop.
Ton Hospel

Et un amusement 48:say map$/x/.A/.chr$n++%26+(65,32,97)[$n%3],A..BZ
Ton Hospel

5

R , 88 86 octets

cat(intToUtf8(rbind(diffinv(matrix(c(66,-32,-31),25,5,T)[,1:3],,,t(c(32,65,97))),10)))

Essayez-le en ligne!

R est terrible en manipulation de corde et bien qu’il ait quelques fonctions de matrice bien définies, les rotations sont une autre chose qu’il ne fait pas très facilement. Je donnerai volontiers une prime à quiconque peut me sur-jouer en R.

Malgré le fait que j'ai trouvé une réponse plus courte, j'accorderai quand même une prime de 50 répétitions à la première autre réponse R de moins de 88 octets.

J'imagine que si je le pouvais, je m'attribuerais cette prime, mais c'est deux octets de moins que la réponse "ennuyeuse"! J'évite les rotations en utilisant simplement le penchant de R pour le recyclage.

EDIT: la réponse de user2390246 m'a complètement gommée et je vais attribuer une prime de 100 points puisque cette solution est de loin supérieure.

Pour arriver ici, j'ai décomposé la sortie souhaitée en leurs points de code ASCII avec utf8ToInt(suppression des nouvelles lignes), construit une matrice et exécuté un diffsur eux en obtenant les différences par colonne. Notant la périodicité, je me suis mis à construire la matrice de manière ludique, dans l’espoir diffinvde recréer l’original.

Grâce à la périodicité, nous pouvons recréer la diffmatrice ed en forçant R à recycler avec une longueur non multiple et en extrayant les colonnes que nous souhaitions réellement:

matrix(c(66,-32,-31),25,5,T)[,1:3]

Ensuite, nous inversons ce processus diffinven recréant les points de code, en ajoutant une ligne de 10(nouvelles lignes) en bas, en le convertissant en ASCII avec intToUtf8, ainsi que catle résultat.


3
You can sort of give yourself a bounty. The bounty would cost you x rep, and you'd gain x rep from it... So, consider it done!
Stewie Griffin


5

Stax, 14 12 bytes

ü≤▐éh╢%╠£┐3]

Run and debug it

Unpacked, ungolfed, and commented, it looks like this.

3R26        push [1,2,3] and 26
K           cross-map using the rest of the program, printing lines implicitly
            this instruction maps over a cartesian join
  -         subtract
  " Aa"@    index into " Aa" using the subtraction result
  i+        add the iteration index

Run this one

This program only uses features that have been available since the initial release of stax, but apparently I forgot about K for cross-map when I originally write this answer.

One nearly interesting thing to note about this answer is that the R is an unnecessary instruction because K implicitly turns integers into ranges. However there's no way to push 3 and 26 without some extra byte in between.


4

PowerShell, 53 bytes

0..2|%{-join(32..57|%{[char]($_+(0,65,33)[$j++%3])})}

Try it online!

I see this is similar to Dom's Perl answer, but I arrived at it independently.

This exploits the fact that the pattern goes Symbol - Lowercase - Capital, even when wrapping newlines (8 - z - A, for example), and thus just adds the appropriate offset (chosen via $j++%3) to the current number $_ before -joining those together into a single string. That's done three times to come up with the three lines (preserving $j between iterations). Those three lines are left on the pipeline, and the implicit Write-Output gives us the newlines for free.


4

Julia 0.6, 79 bytes

println.([prod([' ':'9' 'A':'Z' 'a':'z'][n,mod1(i-n,3)] for n=1:26) for i=2:4])

[' ':'9' 'A':'Z' 'a':'z'] is the unrotated 2d array of characters, [n,mod1(i-n,3)] indexes into that array with appropriate rotation. prod takes a Vector of Characters to a String (since multiplication is used for string join). There are two nested Vector comprehensions resulting in a Vector containing 3 strings, then println. prints the each string in the Vector followed by a newline.

TIO lacks the appropriate method to multiply (with prod) two characters to get a String. I know that method was added somewhat recently, but the TIO version appears to be the same as the version on my PC where this code works, so I can't fully explain why it doesn't work on TIO.

Copy paste example (the ; isn't necessary, it just supresses extra output in the REPL):

julia> println.([prod([' ':'9' 'A':'Z' 'a':'z'][n,mod1(i-n,3)] for n=1:26) for i=2:4]);
 bC#eF&hI)kL,nO/qR2tU5wX8z
A!cD$fG'iJ*lM-oP0rS3uV6xY9
aB"dE%gH(jK+mN.pQ1sT4vW7yZ

4

Charcoal, 26 21 15 bytes

E³⭆⧧⟦γαβ⟧⁻κμμ

Try it online! Link is to verbose version of code. Explanation:

 ³              Literal 3
E               Map over implicit range
   β            Lowercase letters
  ⭆             Map over characters and concatenate
            κ   Outer index
             μ  Inner index
           ⁻    Subtract
       γ        Printable characters
        α       Uppercase letters
         β      Lowercase letters
     §⟦   ⟧     Circularly index into list (selects one of the three strings)
              μ Inner index
    §           (Circularly) index into string
                Implicitly print each inner map result on a separate line

4

J, 29, 27 25 bytes

-2 bytes thanks to FrownyFrog -2 bytes thanks to miles

 |:u:(<26)2&(|.>:)32 65 97

Try it online!

Initial approach: J, 29 bytes

u:(-|."_1&.|:32 65 97+/])i.26

Explanation: i.26 - range 0-26

   i.26
0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

32 65 97+/] - create a 3-row table for the characters

   32 65 97+/i.26
32 33 34  35  36  37  38  39  40  41  42  43  44  45  46  47  48  49  50  51  52  53  54  55  56  57
65 66 67  68  69  70  71  72  73  74  75  76  77  78  79  80  81  82  83  84  85  86  87  88  89  90
97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122

&.|: transpose then do the next verb (|.) and transpose again

-|."_1 rotate each row n times

     (-i.26)|."_1|:32 65 97+/i.26
 32  65  97
 98  33  66
 67  99  34
 35  68 100
101  36  69
 70 102  37
 38  71 103
104  39  72
 73 105  40
 41  74 106
107  42  75
 76 108  43
 44  77 109
110  45  78
 79 111  46
 47  80 112
113  48  81
 82 114  49
 50  83 115
116  51  84
 85 117  52
 53  86 118
119  54  87
 88 120  55
 56  89 121
122  57  90

u: convert to unicode

    u:(-i.26)|."_1&.|:32 65 97+/i.26
 bC#eF&hI)kL,nO/qR2tU5wX8z
A!cD$fG'iJ*lM-oP0rS3uV6xY9
aB"dE%gH(jK+mN.pQ1sT4vW7yZ

Try it online!


@FrownyFrog Thank you! Apparently I didn't check the possibility to create the matrix column-wise.
Galen Ivanov

2
|:u:(<26)2&(|.>:)32 65 97 saves 2 bytes.
miles

@miles Thanks for the great code!
Galen Ivanov

4

C, 70 69 67 60 64 bytes

i;f(t){for(i=t=0;++i<81;putchar(i%27?(4-t++%3)*32%97+i%27:10));}

+4 bytes to make the function reusable.

Invalid 60-bytes answer that isn't reusable:

i,t;f(){for(;++i<81;putchar(i%27?(4-t++%3)*32%97+i%27:10));}

Port of my Java 8 answer @Neil's JavaScript answer.

Try it online.


Since functions have to be reusable and this function does not exit cleanly, it leaves the global variables behind. You need an i=t=0.
Jonathan Frech

@JonathanFrech Fixed
Kevin Cruijssen

3

APL+WIN, 26 bytes

Index origin 0

⎕av[(-⍳26)⊖32 65 97∘.+⍳26]

Generate a matrix of integer index values of the characters in the APL atomic vector.

Rotate each column downwards by its number value.

Use the resulting indices to display the characters from the atomic vector.


3

Vim, 81 79 bytes

a !"#$%&'()*+,-./0123456789␛:h<_␍jjYZZpPgU$klqq"aDjlma"bD"ap`ajD"bpkkp`akl@qq@q

Explanation (simplified)

a !"#$%&'()*+,-./0123456789␛    Insert the first line
:h<_␍jjYZZpPgU$                  Insert the alphabet twice by copying it from the help page
klqq                             Define the loop `q`:
"aDjl                             Cut the rest of the line to `a`
ma"bD"ap                          Replace the rest of the second line (cut `b`, paste `a`)
`ajD"bp                           Replace the rest of the third line (cut `c`, paste `b`)
kkp                               Paste `c`
`akl@qq@q                        Run the loop, each time one more step to the right

3

C, 72 bytes

f(k,x,n){for(n=81;n;putchar(x?k*32+59-x-!k:10))x=--n%27,k=(3+x-n/27)%3;}


3

brainfuck, 121 115 bytes

+++[[<+>>++<-]>]<<[-<->]<+<+<----<++<[->>-<<]<[>>[>.[->>>+<<<]>[+[-<+>]>]<<<<<<+>-]<[->+>[->]<<<<<]++++++++++.,<--]

Thanks to @JoKing for saving 6 bytes!

Try it online!


115 bytes by fiddling about with the number generation
Jo King

2
+++[[<+>>++<-]>] really is the start of everything, huh? Thanks!
Dennis

3

Japt, 17 bytes

26Æ" Aa"c+X éX÷y

Test it


Explanation

26Æ           Ã       :Create the range [0,26) and pass each X through a function
   " Aa"              :  String literal
        c+X           :  Add X to the codepoint of each character
            éX        :  Rotate right X times
               ·      :Join with newlines
                y     :Transpose

Oooh, I had a different solution that may or may not be enough to warrant a separate answer: ;Bå_cÄ é}"@`" ·y
ETHproductions

Well now that we're the same length I feel better about it ;-)
ETHproductions

@ETHproductions: looks different enough to me :) Was going to see if I could come up with a shorter solution by mapping over C after lunch. Don't know how y and · ended up the wrong way 'round; I must have Ctrl+Zed too many times before Ctrl+Aing!
Shaggy



2

K4, 38 bytes

Solution:

-1"c"$+(-t).q.rotate'32 65 97+/:t:!26;

Example:

q)k)-1"c"$+(-t).q.rotate'32 65 97+/:t:!26;
 bC#eF&hI)kL,nO/qR2tU5wX8z
A!cD$fG'iJ*lM-oP0rS3uV6xY9
aB"dE%gH(jK+mN.pQ1sT4vW7yZ

Explanation:

9 characters to perform the rotation...

-1"c"$+(-t).q.rotate'32 65 97+/:t:!26;
-1                                   ; / print to stdout, swallow return
                                  !26  / til 26, 0..25
                                t:     / save as variable t
                             +/:       / add each right item to...
                     32 65 97          / the list 32, 65, 97 (ASCII offsets)
           .q.rotate'                  / rotate each-both
       (-t)                            / negate, 0..-25
      +                                / flip rows and columns
  "c"$                                 / cast to characters

2

Perl, 49 46 bytes

perl -E 'say map chr($_*55%81)=~y// -:A-Z             
a-z       
/cr,0..79'

or

perl -E 'say grep{$_=chr$_*55%81;y// -:A-Z             
a-z       
/c}0..79'

+1! I can't help you save any bytes back, but I wondered about using $^x8, but can't think of another var with enough length, perhaps "@INC" but it's too long, and using "@-" instead of $n++, but still, same length. Unless that helps you shrink this further? Unless you add -p flag and have implicit output?
Dom Hastings

1
@DomHastings Ah, found a way to loop without needing so much preparation
Ton Hospel
En utilisant notre site, vous reconnaissez avoir lu et compris notre politique liée aux cookies et notre politique de confidentialité.
Licensed under cc by-sa 3.0 with attribution required.