Вам нужно напечатать A-Z следующим образом:
1,2,4,6
Но ваш исходный код не может использовать 1. A
2. B
3. C
4. D
5. E
6. F
7. G
8. H
9. I
10. J
11. K
12. L
13. M
14. N
15. O
16. P
17. Q
18. R
19. S
20. T
21. U
22. V
23. W
24. X
25. Y
26. Z
.
Завершающие символы новой строки в выводе разрешены, но ведущие символы не разрешены.
Применяются стандартные лазейки, побеждает самый короткий код.
#код-гольф #колмогоров-сложность #ограниченный исходный код
G = "abcdefghijklmnopqrstuvwzyz" print("\n".join(map(lambda(k,b):str(k+1)+"."+" "+b,enumerate(G.upper()))))
j.e+++hk\.dbrG1
46 байт
τ┌Z*µ╝╘Q
Условие цикла также может быть f(i){for(i=0;++i<033;)printf("%d. %c\n",i,i+'@');}
или f(i){for(i=0;++i<3*9;printf("%d. %c\n",i,i+8*8));}
или main(i){for(;i<3*9;printf("%d. %c\n",i++,i+8*8));}
или #include <stdio.h>
void main() { for(int i='A',j=0;i<='Z';j++,printf("%d. %c\n",j,i),i++);}
or main() { for(int i='A',j=0;i<='Z';j++,printf("%d. %c\n",j,i),i++);}
.
46 байт
print.("$(i-'@'). $i
" for i='A':'Z')
46 байт
echo {A..Z}|tr ' ' '
'|nl -s". " -w$[8-7]
46 байт
for(i=0;i<35-9;)alert(++i+". "+String.fromCharCode(i+8*8))
46 байт
for i=7%3,33-7 do print(i..". "..(8*8+i..""):char())end
47 байт
$->java.util.stream.IntStream.range('A','[').forEach(i->System.out.println(i-'@'+". "+(char)i))
$->{for(char c='@';++c<'[';)System.out.println(c-'@'+". "+c);}
ØAĖj€⁾. Y - Main link. Takes no arguments
ØA - Yield the uppercase alphabet and set as the left and right arguments
Ė - Enumerate
j€⁾. - Join each pair with ". "
Y - Join with newlines and output
the uppercase Аалфавит
ØAĖj€⁾. Y
… ||for(i,x)in(9..).zip('A'..'['){print!("{}. {}
",i-8,x)}
примените следующую неявную функцию:
;B£[YÄLSXR]q #
; # Store the uppercase alphabet in B
B£ # Replace each character in B with the following:
[ ] # Make an array containing:
YÄ # The 0-based index of the character + 1 (i.e. 1-based index)
L # Period
S # Space
X # The original character
R # A newline
q # Join the array into a string with no separator
# Implicitly output the resulting string
prepend ". " to each letter.
;B£[YÄLSXR]q
concatenate the string representation of each to the string representation of:
αɾkAZƛı. j
the ɩиндексы длины алфавита
j "mix" the list of strings into a character matrix
L$`.
@ ||answer||Y`@`L_
Попробуйте онлайн! Ссылка на подробную версию кода. Объяснение:
6 ||answer||2
3*9*@
Попробуйте онлайн! Объяснение:
3*9*@
Y`@`L_
L$`.
$.>`. $&
Вставьте алфавит. (Это самый короткий способ сделать это без использования цифр for x in range(8-7,33-6):print(f"{x}.",chr(x+8*8))
or (8-7)..(33-7)|%{"$($_). "+[char]($_+8*8)}
.)
for i=!0 to 33-7:?i,". ",chr$(8*8+i):next
Сгенерируйте все префиксы.
'A'..'Z'|%{++$i;"$i. $_"}
Замените каждый префикс его длиной, Z{²O. oo
Z{ loop over the alphabet
²O output the iteration number
. o output ". "
o output the current letter
, and its last character ( Ｚ｛²Ｏ. ｏｏ
на самом деле означает последнюю захваченную группу в Retina 0.8.2).
$+
Попробуйте здесь!, альтернативная версия
Единственная причина, по которой это короче, чем древесный уголь, заключается в том, что у него число итераций с индексом 1.
. ||answer||.*(.)
$.&. $+
ABCDEFGHIJKLMNOPQRSTUVWXYZ
Попробуйте онлайн! Объяснение:
ABCDEFGHIJKLMNOPQRSTUVWXYZ
.
$`$&¶
.*(.)
$.&. $+
Вставка 27 write.table(LETTERS,,,F,". ",c=F)
s. (Best I can do since I can't use say++$..". $_"for A..Z
or α Predefined variable uppercase alphabet
Ｅ Map over characters
κ Current index (0-indexed)
⊕ Incremented
. Literal string `. `
ι Current character
⁺⁺ All concatenated
Implicitly print on separate lines
.)
Ｅα⁺⁺⊕κ. ι
Замените каждый A # push the lowercase alphabet
u # convert to uppercase
ā # push the range [1 .. len(alphabet)]
'.« '# append '.' to each number
s # swap to the alphabet
ø # zip both lists => [['1.', 'A'], ..., ['26.', 'Z']]
» # join each inner list by spaces and the outer list by newlines
with subsequent uppercase letters, but delete the last one.
Auā'.«sø»
Сопоставьте каждую букву.
eval ';echo $[++i]. '{A..Z}
Для каждой буквы выведите ее 1-индексный индекс, for($c=A;$c<>AA;$c++)echo++$i,". $c
";
, then the letter.
i=0
exec 78/3*"i=-~i;print'%d. %c'%(i,i+8*8);"
Попробуйте онлайн!
while~-033>i
С
while~-i-5*5: ||answer||while-i/5-~5:
while~-i/5-5
Попробуйте онлайн!
i=8*8
while i<90:i=-~i;print`i-8*8`+'. %c'%i
Попробуйте онлайн!
f=(n=033)=>--n?f(n)+n+`. ${Buffer([8*8|n])}
`:''
![[зор Алеф] Йога Сновидений (2014)](/assets/images/icons/forum5.png){kind=icon}
![[александр Истомин] Практика Скрытого Гипноза](/assets/images/icons/forum0.png){kind=icon}
![[Дмитрий Лапшинов] Йога осознанных сновидений (2020)](/assets/images/icons/forum1.png){kind=icon}
