Когда я был ребенком, существовал «действительно крутой» способ счета до 100:
9
Выведите точную строку, указанную выше, используя как можно меньше символов, не используя эти символы: 2 , 1 , 0 , 1, 2, miss a few, 99, 100
#код-гольф #колмогоров-сложность #ограниченный исходный код
Только браузер.
say join ", ",5-4,5-3,"miss a few",3*33,4*5*5
Попробуйте онлайн! (с полифилом)
3ɽ÷ # stack = [1, 2]
«eeȮǒḋp« # stack = [1, 2, "miss a few"]
₁‹₁ # stack = [1, 2, "miss a few", 99, 100]
W‛, j # join stack on ", "
<?=join(', ',[$i=3/3,++$i,'miss a few',$i=33*3,++$i]);
i3, 3, miss a few, 8, <esc>|<C-x><C-x>l.l<C-a>ylp$pp<C-a>
и X # push 1
Y # push 2
…š§€…†Ó # push compressed dictionary string "miss a few"
т< # push 100-1
т # push 100
„, # push string ", "
ý # join the stack with this string
равны XY…š§€…†Óт<т„, ý
первая строка 9 . Они приводятся к целым числам 2 and 1 операторами 0 and <?=join(', ',[!'',~-3,'miss a few',33*3,45^73]);
.
Сохранено 2 байта благодаря предложению Diial Trauma заменить Z=0
T=10
print(", ".join(map(str,[(Z:=Z+1),Z+1,"miss a few",(T:=T*T)-1,T])))
with j+\,d[=hZhZ"miss a few"t=*TTT
.
Сохранено 1 байт осознав, что я могу заменить ³ḊĖ.ịṚj“¤mɗʂɠẉ⁾»W¤j⁾, - Link: no arguments
³ - 100
Ḋ - dequeue -> [2,3,...,99,100]
Ė - enumerate -> [[1,2],[2,3],...,[98,99],[99,100]]
. - 0.5
ị - index into -> [[99,100],[1,2]]
Ṛ - reverse
¤ - nilad followed by links as a nilad:
“¤mɗʂɠẉ⁾» - dictionary compression of "miss a few"
W - wrap in a list -> ["miss a few"]
j - join -> [1,2,"miss a few",99,100]
⁾, - ", "
j - join -> [1,", ",2,", ","miss a few",", ",99,", ",100]
- implicit print -> `1, 2, miss a few, 99, 100`
with ³ḊĖ.ịṚj“¤mɗʂɠẉ⁾»W¤j⁾,
.
Сохранено 4 байта благодаря предложению dingledooper использовать print ', '.join(map(str,(4-3,5-3,'miss a few',33*3,5*5*4)))
in the “×ƤṪ5Ġpṃ:Ƒ5ṫȷØJkxXp⁺¥ġ»
!
Сохранено 5 байт благодаря предложению ovs использовать [Text.Encoding]::Unicode.GetString([Convert]::FromBase64string('MQAsACAAMgAsACAAbQBpAHMAcwAgAGEAIABmAGUAdwAsACAAOQA5ACwAIAAxADAAMAA='))
objects.
$k=3-3;((@(46+3),@(53-3),@('miss a few'),@(57,57),@((46+3),48,48))|%{$k++;if($k-eq3){$_}else{($_|%{[char]$_})-join''}})-join', '
T`L`d
B, C, miss a few, JJ, BAA
B, C, miss a few, JJ, BAA
T`L`d
Следует отметить одну вещь: у Джелли есть miss a few, atom, which prints a string Jelly representation of it's argument. Lists in Jelly do not use , and +n, +n, 'miss a few, '#44+#45+n, +n
as open/close markers, instead they consist of comma-separated values:
#include <string>
#include <stdio.h>
using namespace std;
int main() {
auto k = [](){for(int x:"4/#5/#plvv#d#ihz/#<</#433"s)putchar(x-3);};
k();
return 0;
}
принты []{for(int x:"4/#5/#plvv#d#ihz/#<</#433"s)putchar(x-3);}
, unfortunately, without spaces.
ü2Φÿßbÿ»f╙m¡6¿₧|░╘;┬u»
||answer||ü←φr5╧wL'•↔♦$▒ò╠‼
||answer||m Map the function...
ȯ←←← Decrement character 3 times
"4/#5/#plvv#d#ihz/#<</#433 desired string "ASCII-shifted" by 3
-4 от Ионы. Заимствовано из ответа Арно.
mȯ←←←"4/#5/#plvv#d#ihz/#<</#433
Три непечатаемых объекта для кодовых точек 1, 2 и 3 находятся в строке, содержащей «cd».
-2 от manatwork. Другая версия с тем же количеством байтов
b"cd" => [99,100]
Объяснение:
Я использую тот факт, что каждую строку с номером \$x\$ можно вызвать с помощью \$x + k \cdot n \$, где \$k \in \mathbb{N} \$ и \$n\$ общее количество строк кода. b"\1\2" => [1,2] can be replaced by b"str" , "\1\2" , ()->join([b"";"miss a few";b"cd"],", ")
Пример из кода из 11 строк: ссылка на строку
Попробуйте переведенную версию онлайн!
Построчно:
$,=", ";say 5-4,5-3,"miss a few",3*33,4*5*5
Как всегда в Whispers, сначала запускаем последнюю строку:
say"C, D, miss a few, KK, CBB"=~y,A-L,/-:,r
Эта строка выводит результат из строки 56. Поскольку в коде нет 56 строк, на самом деле выводится строка \$ 56 \mod 11 = 1\$:
333ff
Применив тот же трюк еще раз, мы можем заменить эту строку на:
-[----->+>+>+>++>++<<<<<]>>>--.-----.------------.<-.------.>.>+++++++.>+++.<++++++..<.>>--------.<<.>>+++++.-.<++++.<<.>.<<++++++..>.>.<+++++.-..
/-: is an argument from the 0-9 В строке 5 мы можем ожидать функцию, а в строке 2 — массив. Функция будет применена к каждому элементу массива и заменит элемент результатом. Давайте сначала посмотрим на строку 5: cat(chartr("@-K","/-:","B, C, miss a few, JJ, BAA"))
is converted to a string.
утверждение в строке 1.
l(){printf("%c, %d, miss a few %d, %o",7*7,5-3,'c',64);}
<?=5-4,', ',5-3,', miss a few, ',33*3,', ',5*5*4;
creates an array with the arguments as its elements. If we would print this line we get the following array:
<?=
Теперь строка 2:
Пояснение аргументов:
Строка 3 и 4: простые строки %x
Строка 6: Возвращает длину строки 3, поэтому мы получаем printf
Строка 7: Возвращает длину строки 5, поэтому мы получаем printf('%c, %d, miss a few, %d, %o',7*7,5-3,33*3,64);
Строка 8: Возвращает результат строки 53 (на самом деле 9), возведенный в степень результата строки 6, поэтому мы получаем 99
100
Попробуйте онлайн! 1 , some spices, stir
А
РЕДАКТИРОВАТЬ: -1 байт благодаря Digital Trauma. 2 for hex but it has a 1..
РЕДАКТИРОВАТЬ 2: -3 байта благодаря Майклу Доргану за восьмеричный формат, думал о 153 с [1, ', ', 2, ', ', 'miss a few', ', ', 99, ', ', 100]
can also take multiple arguments with comas):
Then
Попробуйте онлайн!
>> Each 5 57
, 43 байта
Преобразует B-K в 0-9 (расширяется еще одним кодом ASCII с каждой стороны диапазона) и печатает.
>> Output 56
, 43 байта
Устанавливает разделитель записей и печатает несколько чисел и строку.
Попробуйте онлайн!
$><<"cd".bytes.insert(2,"miss a few")*", "
Попробуйте онлайн!
$><<[3/3,6/3,'miss a few',33*3,5*5*4]*", "
||answer||байты
<c>, <c>, miss a few, <d><d><c>, <c><style>c:before{content:counter(a);counter-increment:a}d{counter-increment:a 48}
сэкономил 2 байта благодаря Razetime
Запустите и отладьте его
3Ṗ,³э’¤j“¤mɗʂɠẉ⁾»W¤j⁾, - Main link. Takes no arguments
3 - Yield 3;
Ṗ - Pop from 3, yielding [1, 2]
¤ - Group the previous links into a nilad:
³ - 100
’ - Decrement; 99
? - Tack; [99, 100]
, - Pair; [[1, 2], [99, 100]]
¤ - Group the previous links into a nilad:
“¤mɗʂɠẉ⁾» - The compressed string "miss a few"
W - Wrap; ["miss a few"]
j - Join; [1, 2, ["miss a few"], 99, 100]
j⁾, - Join with ", "; "1, 2, miss a few, 99, 100"
Запустите и отладьте его
]
, 31 34 байта
Это мой собственный эсоланг, для получения дополнительной информации перейдите по ссылке. [ and Ṙ Увеличивает аккумулятор, печатает его, неявно печатает некоторые строки (
неявно печатаются), выполняет цикл приращения аккумулятора и завершает работу с того же момента, как и начался. Изменить: я понял, что «97» использует «9».
бьет по лбу
3Ṗ,³э’¤j“¤mɗʂɠẉ⁾»W¤j⁾,
, 32 байта Попробуйте онлайн!
print(f"{4-3}, {6-4}, miss a few, {33*3}, {4*5*5}")
Объяснение:
The b"" is equivalent to b"\1\2".
Замените пустой ввод строкой-буквой.
Транслитерация заглавных букв цифрами.
print(*b"","miss a few",*b"cd",sep=", ")
bytes
Попробуйте онлайн!
, 16 байт + , 0 , 1 and FALSE .
TRUE
Я не думаю, что это будет короче, если
F ||answer||T ||answer||cat(T+F:T,"miss a few",3*33+F:T,sep=", ")
PHP, 58 54 байта
PHP на самом деле не хочет, чтобы его печатали коротко, но мне понравилось это придумать :)
![[миф] Проактивные Продажи - Альберт Тютин](/assets/images/icons/forum5.png){kind=icon}
![[CLEO] Авто-переворот/занос](/assets/images/icons/forum0.png){kind=icon}
