Le défi

Affichez l'alphabet d'une lettre donnée lue à partir de l'entrée de la console. Si la lettre est en majuscule, vous devez afficher l'alphabet en majuscule. L'alphabet imprimé doit se terminer par la lettre précédente de celle insérée. Si un paramètre supplémentaire est ajouté à l'entrée (un simple point .), l'alphabet doit être imprimé une lettre sur chaque ligne. Sinon, l'alphabet doit être imprimé sur la même ligne, séparé par un simple espace. Si une mauvaise entrée est envoyée au programme, elle n'imprimera rien.

Exemples d'entrées:

Contribution:

c

Sortie du programme:

d e f g h i j k l m n o p q r s t u v w x y z a b

Contribution

H.

Sortie du programme:

I
J
K
L
M
N
O
P
Q
R
S
T
U
V
W
X
Y
Z
A
B
C
D
E
F
G

GolfScript 48 75 73 70 67 66 63 57 53

(91,65>.+.{32+}%+.@?>(;25<''+.,1>*\['''.']?[' 'n 0]=*

Démos en ligne:

• Cas de test 1 («c»)

• Cas de test 2 («H.»)

• Cas de test 3 (entrée non valide)

Mise à jour:

Maintenant, la dernière règle est également implémentée. Merci à Ventero d' avoir signalé le problème.

Mise à jour:

J'ai réécrit le code à partir de zéro et j'ai trouvé de nouvelles façons de le raccourcir encore plus.

Historique des modifications:

.,3<\(:x;:§['''.']?)and{91,65>.+.{32+}%+.x?).{>25<''+{§n' 'if}%}{;;}if}''if
.,3<\(:x;:§['''.']?)*{91,65>.+.{32+}%+.x?).{>25<''+{§n' 'if}%}{;;}if}''if
.,3<\(:x;:§['''.']?)*{91,65>.+.{32+}%+.x?).!!@@>25<''+{§n' 'if}%*}''if
.,3<\(:x;:§['''.']?)*!!91,65>.+.{32+}%+.x?).!!@@>25<''+{§n' 'if}%**
.,3<\(:x;:§['''.']?)*91,65>.+.{32+}%+.x?).@@>25<''+{§n' 'if}%@@*!!* 
.(@,3<@:§['''.']?)*91,65>.+.{32+}%+@1$?).@@>25<''+{§n' 'if}%@@*!!*
.(@,3<@:§['''.']?)*91,65>.+.{32+}%+@1$?):x>25<''+{§n' 'if}%\x*!!*
.(@,3<@:§['''.']?)*91,65>.+.{32+}%+@1$?):x>25<''+§n' 'if*\x*!!*
(\:§['''.']?)91,65>.+.{32+}%+@1$?):x>25<''+§n' 'if*\x*!!*
(91,65>.+.{32+}%+.@?>(;25<''+.,1>*\['''.']?[' 'n 0]=* 

C, 135 129 128 caractères

Merde, tant de nombres magiques différents, mais aucun moyen de s'en débarrasser.

Doit être exécuté avec l'entrée comme paramètre de programme. Suit maintenant l'exigence de "mauvaise entrée".

c;main(a,b)char**b;{if(a==2&&isalpha(**++b)&&!(c=1[*b])||c==46&&!2[*b])for(;++a<28;)printf("%c%c",**b-=**b+6&31?-1:25,c?10:32);}

Explication:

c;                   // Variable that will be used later
main(a,b)char**b;{   // There's one parameter => a = 2, b[1] = the parameter
                     // Wrong input checks: We want...
  if(
     a==2 &&         // 1 parameter and ...
     isalpha(**++b)  // lower- or uppercase letter as parameter,
                     // increase b so we can access it better
     &&              // and ...
     !(c=1[*b]) ||   //   either no further character,
                     //     save the character in c, or...
     (c==46&&!2[*b]) //   a dot as next character and no further characters
    )                // if check succeeded, execute the for loop, else do nothing
  for(;++a<28;)      // This will loop 26 times (2..27)
    printf("%c%c",   // Print two characters
                     // First character to print:
      **b            // We'll print the first character of the parameter,
       -=            // but decrement it before printing
       **b+6&31?     // if the last five bits (31 = 11111b) are not 26 (6 == -26 mod 32)
        -1           //   decrement it by -1 (aka increment it)
        :25,         //   else (char=z/Z) decrement by 25, so we start over at a/A
                     // Second character to print:
      c?             // c is either ASCII 0 or a dot (ASCII 46)
       10            //   dot     -> print a newline
       :32);         //   ASCII 0 -> print a space (ASCII 32)
}

La **b+6&31partie utilise le fait que les codes ASCII pour les caractères minuscules / majuscules sont les mêmes si l'on ne regarde que les 5 derniers bits et les 5 bits restants sont dans la plage 1..26.

Version sans exigence de "mauvaise entrée" (82 caractères):

main(a,b)char**b;{for(b++;++a<28;)printf("%c%c",**b-=**b+6&31?-1:25,1[*b]?10:32);}

Ruby, 72 71 61 caractères

gets;25.times{$><<$_=$_.succ[0]+=$1?$/:' '}if~/^[a-z](\.)?$/i

Cette version rubis utilise une expression régulière pour vérifier l'entrée. Heureusement, la méthode de la chaîne Ruby succfait la plupart du travail pour nous (y compris le bouclage).

Edit: 61 caractères avec l'aide de chron et Ventero .

Ruby: 127 113 92 (?) Caractères

(Je ne trouve pas la règle sur le score de pénalité lors de l'utilisation -p. Ajouté 1 pour l'instant. En cas d'erreur, veuillez me corriger.)

$_=if ~/^([a-z])(\.)?$/i;s,e=$1>?Z?[?a,?z]:[?A,?Z];[*$1.succ..e,*s...$1]*($2==?.?$/:" ")end

Exemple d'exécution:

bash-4.2$ ruby -pe '$_=if ~/^([a-z])(\.)?$/i;s,e=$1>?Z?[?a,?z]:[?A,?Z];[*$1.succ..e,*s...$1]*($2==?.?$/:" ")end' <<< c
d e f g h i j k l m n o p q r s t u v w x y z a b

bash-4.2$ ruby -pe '$_=if ~/^([a-z])(\.)?$/i;s,e=$1>?Z?[?a,?z]:[?A,?Z];[*$1.succ..e,*s...$1]*($2==?.?$/:" ")end' <<< H.
I
J
K
L
M
N
O
P
Q
R
S
T
U
V
W
X
Y
Z
A
B
C
D
E
F
G

bash-4.2$ ruby -pe '$_=if ~/^([a-z])(\.)?$/i;s,e=$1>?Z?[?a,?z]:[?A,?Z];[*$1.succ..e,*s...$1]*($2==?.?$/:" ")end' <<< seven

Rubis, 101 95

i,d=gets.split''
[*?a..?z].join[/#{i}/i]
($'+$`).chars{|c|$><<(i>?Z?c:c.upcase)+(d==?.?$/:' ')}

Essayez-le en ligne

GolfScript, 80 72 caractères

.).46={;)}*25,{65+.32+}%?)\""=*!!\([{)..31&26-!26*-}25*;]n+\"."=n" "if**

Beaucoup de code teste l'entrée valide et l'option "n'imprime rien". La logique réelle est de 37 caractères seulement.

Cas de test en ligne

q / k4 66 64 63 60 58 56 + 2 pénalité

pénalité pour la variable globale init, l'algorithme est de 56 comme ci-dessous:

56:

if[&/x in".",l:(a;A)90>*x;1@/1_,/|_[0,l?x;l,'"  \n"@#x]]

58:

if[&/x in".",l:(a;A)90>*x;1@/(1_,/|_[0,l?x;l]),'"  \n"@#x]

• passer de if-else à if autorisé à réorganiser le code et à se débarrasser de ";" à la fin

60:

1@/$[&/x in".",l:(a;A)90>*x;1_,/|_[0,l?x;l];" "],'"  \n"@#x;

• s'est finalement débarrassé de ce chèque redondant

63:

1@/$[&/x in".",l:(a;A)90>*x;1_,/|_[0,l?x;l];" "],'" \n""."in x; 

• imprimer les caractères récursivement à la place d'un objet entier
• ne peut toujours pas sortir de la comparaison d'identité x dans "." à deux endroits ... :(
• un point-virgule à la fin est requis, sinon la fonction print (1 @) afficherait sa valeur de retour sur stdout .... damn

64:

2@,/$[&/x in".",l:(a;A)90>*x;1_,/|_[0,l?x;l];" "],'" \n""."in x;  

ÉDITER:

Ajout d'une pénalité de 2 pour l'initialisation globale (x :), même si la fonction d'enveloppement entre crochets (comme suggéré par slackware)
ne sait pas si le changement d'espace de noms doit également être puni ... alors c'est un autre 3

(.Q`a`A) instead of (a;A)

Exemple:

q)\         - switch interpreter to k4
 \d .Q     - change to native namespace
  x:"c"
  if[&/x in".",l:(a;A)90>*x;1@/1_,/|_[0,l?x;l,'"  \n"@#x]]
d e f g h i j k l m n o p q r s t u v w x y z a b

  x:"@"
  if[&/x in".",l:(a;A)90>*x;1@/1_,/|_[0,l?x;l,'"  \n"@#x]]    
  x:"H."
  if[&/x in".",l:(a;A)90>*x;1@/1_,/|_[0,l?x;l,'"  \n"@#x]]
I
J
K
L
M
N
O
P
Q
R
S
T
U
V
W
X
Y
Z
A
B
C
D
E
F
G
  x:...

Perl, 131 127 117 117 112 106 104 102 102 98 96 92 91 90 93 71 66 65 64 58 caractères

s!^([a-z])(\.?)$!print chop,$2?$/:$"for($1..az)[1..25]!ie

Usage:

perl -ne 's!^([a-z])(\.?)$!print chop,$2?$/:$"for($1..az)[1..25]!ie'

Un caractère a été ajouté au décompte de l' noption.

La plus grande coupure n'a été possible qu'en raison du comportement des ++personnages dans la réponse de Jon Purdy .

Perl, 149 , 167

Mise à jour

• Vérification de la santé mentale ajoutée.
• A pris une nouvelle suggestion concernant l'application du séparateur.

exit if $ARGV[0] !~ /[a-z]\.?/i;    # sanity check input
($x,$d)=split //,$ARGV[0];          # split input arguments
@l=65..90;                          # define uc letter range
push @l,splice @l,0,ord(uc $x)-64;  # rotate letter range
pop @l;                             # remove the argument letter
print join $d?$/:$",                # print the joined list
  map {ord($x)>90?lc chr:chr} @l;   # map chr and lc as appropriate

Python, 83

r=raw_input()
i=ord(r[0])
exec"i+=1-26*(i%%32>25);print chr(i)%s;"%","["."in r:]*26

PHP, 120 119 113

<?$v=fgets(STDIN);$f=$c=$v[0];ctype_alpha($c++)||die;for(;$c[0]!=$f;$c=$c[0],$c++)echo$c[0],$v[1]=='.'?"\n":" ";

Mathematica 158 159 204 199 183 167 165 162

Code

f@h_ := Most@RotateLeft[#, Position[#, h][[1, 1]]] &[FromCharacterCode /@ 
        (65~Range~90 + 32 Boole@LowerCaseQ@h)];
g = Characters@# /. {{p_} :> Row[f@p, " "], {p_, "."} :> Column@f@p, _ -> ""} &

Usage

g["c"]
g["H"]
g["H."]
g["seven"]

J 43

|:1j1#(25{.(u:,2#65 97+/i.26)(>:@i.}.[)])"0

Exemples:

|:1j1#(25{.(u:,2#65 97+/i.26)(>:@i.}.[)])"0 's'

tuvwxyzabcdefghijklmn opqr

|:1j1#(25{.(u:,2#65 97+/i.26)(>:@i.}.[)])"0 's.'

t
u
v
w
x
y
z
a
b
c
d
e
f
g
h
i
j
k
l
m
n
o
p
q
r

|:1j1#(25{.(u:,2#65 97+/i.26)(>:@i.}.[)])"0 '['

Cette solution a évolué sur le forum de programmation J: http://jsoftware.com/pipermail/programming/2012-August/029072.html

Auteurs: AlvordBossCerovskiCyrEllerHuiLambertMcCormickMillerQuintanaSchottSherlockTaylorTherriault

Explication

Les phrases J sont exécutées en commençant à droite, en passant le résultat en cours vers la gauche lors de son évaluation. Puisqu'il est interactif, nous pouvons examiner des éléments de la solution isolément pour mieux les comprendre.

La partie centrale génère l'alphabet majuscule et minuscule en Unicode:

   u:,2#65 97+/i.26
ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz

Le verbe "u:" convertit son argument numérique de droite en caractères Unicode. L'argument numérique est généré à partir des valeurs ASCII pour les caractères majuscules et minuscules en ajoutant les nombres pour "A" et "a" chacun aux valeurs de 0 à 25 générées par "i.26":

   65 97+/i.26
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

La partie droite,

   ((>:@i.}.[)])"0

recherche (i.) la position de l'argument de droite (]) dans la gauche ([) - qui est le vecteur des lettres ci-dessus - et laisse tomber (}.) un de plus (>:) que ce nombre. Le "" 0 "applique cette phrase aux arguments (scalaires) à 0 dimension.

   ('123H999' (>:@i.}.[)])"0 'H'
999

La phrase "25 {." Prend les 25 premiers éléments du vecteur à droite.

L'avant-dernière phrase "1j1 #" à gauche reproduit son argument de droite en fonction du nombre à gauche. Un simple numéro fait une simple réplication:

   2 # 'ABCD'
AABBCCDD

Cependant, un nombre complexe - indiqué par le "j" entre les parties réelle et imaginaire - insère un élément de remplissage en fonction de la partie imaginaire. Ici, nous indiquons un élément de remplissage par celui à droite du "j".

   2j1 # 'ABCD'
AA BB CC DD 

Comme pour la plupart des primitives J, le verbe répliqué (#) fonctionne sur les tableaux numériques de manière analogue à son fonctionnement sur les tableaux de caractères. Comme montré ici,

   1j1 # 1 2 3
1 0 2 0 3 0

nous voyons que l'élément de remplissage numérique par défaut est zéro alors que pour les caractères c'est le caractère espace.

Enfin, le jeton le plus à gauche "|:" transpose le résultat des verbes précédents à sa droite.

Explication fournie par Devon McCormick. Merci Devon.

enculé, 303

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

Actuellement, il ne prend pas en charge la If wrong input is send to the program it will not print anythingpièce, et il peut probablement être plus court. J'ai l'intention de le réparer plus tard. En ce moment, mon cerveau est trop fou pour continuer.

C, 110

Imprime parfois des "espaces" entre les lettres, parfois non.

i,j;main(int c,char*l){gets(l);l[1]&=10;j=*l%32;c=*l&~31;for(i=j;i<j+25;i++){l[0]=c+i%26+1;printf("%2s",l);}}

Un peu plus lisible:

i,j;
main(int c,char*l)
{
  gets(l);
  l[1]&=10;          // makes . to line feed and some other chars to "start of text" 
                     // which looks like space in some cases 
                     // (the byte can become either 0, 2, 8 or 10)

  j=*l%32;           // 0b 000c cccc, these five bits code which letter was chosen
  c=*l&~31;          // 0b ccc0 0000, these three bits code upper/lowercase

                     // 0b ccc0 0000 + (0b 000c cccc + [0..24])%26 + 1
  for(i=j;i<j+25;i++){l[0]=c+i%26+1;printf("%2s",l);}
}

Exécute:

$ ./a.out
G
 H I J K L M N O P Q R S T U V W X Y Z A B C D E F

$ ./a.out
p.
q
r
s
t
u
v
w
x
y
z
a
b
c
d
e
f
g
h
i
j
k
l
m
n
o

JavaScript, 137

Malheureusement un peu bavard ( String.fromCharCodeet charCodeAt).

for(x=b=(n=prompt(m={122:97,90:65})).charCodeAt(r='');/^[a-z]\.?$/i.test(n)&&(x=m[x]||x+1)!=b;)r+=String.fromCharCode(x)+(n[1]?"\n":" ");

Perl, 77 76 70 68

chomp(($a,$b)=split//,<>);$"=$/if$b;map{++$a=~/(.)$/}1..25;print"@a"

Modifications:

1. Enregistré un personnage en utilisant regex au lieu de substr.

2. 6 caractères enregistrés à la mapplace de for.

3. Enregistrement de 2 caractères en omettant le retour à la ligne final.

R, 219

Moche, longtemps ... fonctionne toujours.

f=function(l){if(!nchar(l)%in%c(1,2))invisible()else{s=ifelse(nchar(l)==1," ","\n");l=substr(l,1,1);v=letters;if(l%in%v){}else v=LETTERS;l=grep(l,v);if(l==26)cat(v[1:25],sep=s)else cat(c(v[l+1:(26-l)],v[1:l-1]),sep=s)}}

Usage:

f("a")
f("c.")
f("H")
f("z")
f("Z.")
f("seven")

C, 146 caractères (terrible)

main(){char b[100];gets(b);for(char a=b[0],c=a,d=a&223,e=b[1];++c!=a&64<d&d<91&(!e|e==46&!b[2]);(c&31)>26?(c&=96):(putchar(c),putchar(e?10:32)));}

Je ne suis pas très expérimenté en C, ce qui montre probablement ...>. <J'avais le sentiment que les caractères étant des entiers seraient utiles, mais cela ne semblait pas avoir un impact aussi important que je l'espérais ... Je vais laisser ma tentative ici cependant, n'hésitez pas à suggérer des améliorations.

Version non minimisée:

main() {
  char b[999]; // assume that the line will fit in 999 chars...
  gets(b);

  // a is the char we start on, c is the char that we iterate,
  // d is toUppercase(a), e is just an alias for the second char.
  for (char a = b[0], c = a, d = a&223, e=b[1];
      // increment c, make sure that we haven't reached a yet.
      // also check the other conditions (first char is letter, second char
      // is either '.' or NULL, third char is NULL if second char was '.').
      ++c != a & 64 < d & d < 91 & (!e | e == 46 & !b[2]);
      (c&31) > 26     // check if we need to wrap around
        ? (c &= 96)   // if so, wrap
        : (putchar(c), putchar(e?10:32))  // otherwise, print char & separator
  );
}

VBA 225

Formaté pour s'exécuter à partir de la fenêtre immédiate:

s=InputBox(""):n=Asc(Left(s,1)):l=Len(s):p=IIf(l<3,IIf(l=2,IIf(Right(s,1)=".",vbCr,"")," "),""):c=IIf(n>64 And n<91,65,IIf(n>96 And n<123,97,99)):o=n-c+1:If o>0 And p<>"" Then For i=o To o+24:x=x & Chr(i Mod 26+c) & p:Next:?x

Décomposé en lignes individuelles (doit être entouré de Subblocs et nécessite une printméthode différente pour fonctionner dans un module, allongeant ainsi le code):

s=InputBox("")
n=Asc(Left(s,1))
l=Len(s)
p=IIf(l<3,IIf(l=2,IIf(Right(s,1)=".",vbCr,"")," "),"")    
c=IIf(n>64 And n<91,65,IIf(n>96 And n<123,97,99))
o=n-c+1
If o>0 And p<>"" Then 
For i=o To o+24
x=x & Chr(i Mod 26+c) & p
Next
End If 'Not needed when completed in single line format
MsgBox x

Java 8, 127 octets

a->{String r="",d=a.length>1?"\n":" ";char c=a[0],C=c;for(;++c<(c<97?91:123);r+=c+d);for(c=C<97?64:'`';++c<C;r+=c+d);return r;}

Explication:

Essayez-le en ligne.

a->{                        // Method with character-array parameter and String return-type
  String r="",              //  Result-String, starting empty
         d=a.length>1?      //  If the length of the input is larger than 1
            "\n"            //   Set the delimiter to a new-line
           :                //  Else:
            " ";            //   Set the delimiter to a space
  char c=a[0],              //  Get the input letter
       C=c;                 //  And create a copy of it
  for(;++c<(c<97?91:123);   //  Loop from this letter + 1 to (and including) 'Z'/'z'
    r+=c+d);                //   And append the result with a letter + the delimiter
  for(c=C<97?64:'`';++c<C;  //  Loop again from 'A'/'a' to (and excluding) the input-letter
    r+=c+d);                //   And append the result with a letter + the delimiter
  return r;}                //  Return the result

Oreillons, 91 , 86 , 82 , 79 , 76

r t i t?1A.1"." s a=$A(t),p=a>90*32+65 f i=1:1:25 w *(a+i-p#26+p) w:t["." !

Pas un langage aussi moderne;) Je suis sûr qu'il reste un peu d'espace d'optimisation ..

Explication:

r t 

lire l'entrée

i t?1A.1"."

vérifier si t correspond à l'entrée requise

s a=$A(t),p=a>90*32+65 f i=1:1:25 { w *(a+i-p#26+p) w:t["." !}

de base pour parcourir l'alphabet. Notez que les oreillons évaluent strictement de gauche à droite. Vrai = 1, donc vous obtenez 65 ou 97 comme résultat pour p, # est l'opérateur modulo

tests:

USER>d ^golf
d.e
f
g
h
i
j
k
l
m
n
o
p
q
r
s
t
u
v
w
x
y
z
a
b
c

USER>d ^golf
tuvwxyzabcdefghijklmnopqrs
USER>d ^golf
h.i
j
k
l
m
n
o
p
q
r
s
t
u
v
w
x
y
z
a
b
c
d
e
f
g

USER>d ^golf
hallo
USER>

(vous aurez besoin d'un environnement d'exécution des oreillons, c'est-à-dire Caché pour exécuter ceci)

modifier: titre en gras

edit: avait une mauvaise solution, corrigée maintenant. Merci à rtfs et Averroees pour l'avoir signalé

JavaScript: 141

c="",b=c[0].charCodeAt()<91,a="abcdefghijklmnopqrstuvwxyz",b&&(a=a.toUpperCase()),a=a.split(c[0]),a=a[1]+a[0],a=c[1]?a.split("").join("\n"):a

Version commentée:

c="", //write input here (examples "a", "B", "c.", "D.")
b=c[0].charCodeAt()<91, //true for upperC, false for lowerC
a="abcdefghijklmnopqrstuvwxyz", //the abc
b&&(a=a.toUpperCase()), //if upper, turn main string to upperC
a=a.split(c[0]), //split by the first char of input
a=a[1]+a[0], //swap the two parts
a=c[1]?a.split("").join("\n"):a //if input second char, add breaklines in between
//the output is inside 'a'

jsFiddle DEMO

Voici ma première tentative avec APL.

⍞{1 1≡(2⌈⍴⍺)⍴⍺∊'.',⍵:⊃(~=/2⍴⍺)⌷(,X,' ')(X←25 1⍴1↓(X⍳⊃⍺)⌽X←(⎕A∊⍨⊃⍺)⌷2 26⍴⍵)}6↓26⌽⎕UCS 65+⍳58

si je peux utiliser une seule variable globale, A←2 26⍴6↓26⌽⎕UCS 65+⍳58je peux raccourcir ce qui précède comme suit:

{1 1≡(2⌈⍴⍵)⍴⍵∊'.',,A:⊃(~=/2⍴⍵)⌷(,X,' ')(X←25 1⍴1↓(X⍳⊃⍵)⌽X←(⎕A∊⍨⊃⍵)⌷A)}⍞

C ++ 11

#include <iostream>
#include <vector>
#include <cstdio>

int main(int argc, const char * argv[])
{
    std::vector<char> list1,list2;
    for( char c = 'a'; c <='z'; c++ )
    {
        list1.push_back( c );
        list2.push_back( toupper( c ) );
    }
    char c = getchar();
    auto f = [ c ]( std::vector<char> list )
    {
        auto i = std::find( list.begin(), list.end(), c );
        if( i == list.end() )
            return;
        auto c = i;
        for( ;; )
        {
            c++;
            if( c == list.end() ) c = list.begin();
            if( c == i )break;
            std::cout<<*c<<"\n";
        }
    };
    f( list1 );f(list2);
    return 0;
}

C (111)

main(int i, char**c){if(isalpha(*c[1]))for(i=0;i<25;i++) printf("%c",isalpha((*c[1])+1)?++*c[1]:(*c[1]-=25));}

dissection

if(isalpha(*c[1])) // start with char-check.

for(i=0;i<25;i++) // we need 25 values, excluding input char. reusing i.

printf("%c", // print char. ofcourse.

isalpha((*c[1])+1) ? ++*c[1] : (*c[1]-=25)); 
//check if we are past z/Z and fall back to a/A. 
//make that available to print. 

Works] $ ./test 5

Works] $ ./test W XYZABCDEFGHIJKLMNOPQRSTUV

Works] $ ./test M NOPQRSTUVWXYZABCDEFGHIJKL

Works] $ ./test g hijklmnopqrstuvwxyzabcdef

Works] $ ./test [

Works] $ ./test a bcdefghijklmnopqrstuvwxyz

Works] $ ./test Z ABCDEFGHIJKLMNOPQRSTUVWXY

Merci pour un peu de réflexion.

Perl, 226 caractères

die "Invalid input " if $ARGV[0] !~ /[a-z]\.?/i;
@listA=(a...z);
$index=ord(lc(substr($ARGV[0],0,1)))-97;
print join(substr($ARGV[0],1) ? "\n" : " ",map{$ARGV[0] =~ /[A-Z]/?uc $_:$_}(@listA[$index+1...25],@listA[0...$index]));

C # 170

using System.Linq;namespace N{class P{static void Main(string[]a){foreach(char e in"abcdefghijklmnopqrstuvwxyz".ToCharArray().Where(o =>o>'c'))System.Console.Write(e);}}}

Non compressé

using System.Linq;
namespace N {
    class P {
        static void Main(string[]a){
            foreach (char e in "abcdefghijklmnopqrstuvwxyz".ToCharArray().Where(o => o > 'c'))
                System.Console.Write(e);
        }
    }
}

C, 117

main(c,s,d){d=c=getchar(),s=getchar();for(s=s<0?32:s^46?0:10;d+=d+6&31?1:-25,s&&isalpha(c)&&d^c;printf("%c%c",d,s));}

Nous remercions schnaader pour l'astuce d + 6 & 31.

http://ideone.com/ts1Gs9

Bash: 110 octets

(([[ $1 =~ [a-z] ]]&&echo {a..z})||([[ $1 =~ [A-Z] ]]&&echo {A..Z}))|([ "${1:1:1}" = . ]&&sed 's/ /\n/g'||cat)

En termes d'explication, c'est assez simple, pas de tours de magie - c'est juste quelque chose pour lequel bash est intrinsèquement bien adapté. En termes de bits non évidents:

• {a..z}est une astuce très sous-utilisée en bash - elle se développe à a b c d.... Vous pouvez faire de même pour générer des séquences numériques.
• Bash peut faire une correspondance regex, [[ $1 =~ [a-z] ]]exécute une correspondance regex avec le premier argument de programme pour les caractères de a à z. De même pour AZ. Cependant, vous avez besoin de crochets doubles, [vous ne pouvez pas le faire.
• ${1:1:1}obtient une sous-chaîne de $ 1 (le premier argument), un caractère dans, un caractère de long - c'est-à-dire qu'il retourne le deuxième caractère de la chaîne, ce que nous attendons ..
• sed 's/ /\n/g'expression rationnelle simple: recherche et remplace les espaces par des retours à la ligne. Si .est le deuxième caractère de la chaîne, nous dirigeons l'entrée vers cela, ou autrement ...
• cat est l'astuce finale ici - si nous ne voulons pas remplacer les espaces par des sauts de ligne, nous alimentons stdin à cat à la place qui le renvoie simplement à nouveau.