Число - Расстояние Левенштейна И Оэис (Грабители)

Adrew

Это пост Разбойника. Пост полицейского здесь.

Ваша задача — принять целочисленный ввод Н и выведите N-й цифра в последовательности ОЭИС A002942.

Последовательность состоит из квадратных чисел, записанных задом наперед:

   N = 5,      ==> 1
N = 17,     ==> 1   <- Important test case! It's not zero.
N = 20,     ==> 4
N = 78,     ==> 0
N = 100,    ==> 4
N = 274164, ==> 1

Обратите внимание, что ведущие нули обрезаются (100 становится 1, нет 001). Объединение этого в строку (или одно длинное число дает):

1496152639446181121441

Вы должны вывести N-й цифра в этой строке/числе. Вы можете принять решение взять Н с индексом 0 или с индексом 1 (пожалуйста, укажите, какой из них вы выберете).

Тестовые случаи (1-индексированные):

1, 4, 9, 61, 52, 63, 94, 46, 18, 1, 121, 441, ...

Ваш код должен работать для чисел до Н = 2^15 (если ваш язык по умолчанию не поддерживает 32-битные целые числа, в этом случае Н может быть ниже).

Грабители:

Тебе следует попытаться взломать посты копов.

Ваш код должен быть на том же языке, что и сообщение полицейского, и иметь расстояние Левенштейна, точно равное расстоянию, указанному полицейским. Ваш код не может быть длиннее исходного решения (но может быть того же размера).

Вы можете проверьте расстояние Левенштейна здесь!

Победителем станет грабитель, взломавший наибольшее количество столбов.

#номер #последовательность #полицейские и грабители

Maxim7755

Хаскелл, Лайкони

               00 C0 20 FD AE A0 00 99 5B 00 C8 20 73 00 90 F7 99 5B 00 A2 0B CA 98 88 30 09
B9 5B 00 29 0F 95 5B 10 F2 95 5B CA 10 FB A0 20 A2 76 18 B5 E6 90 02 09 10 4A
95 E6 E8 10 F4 A2 03 76 69 CA 10 FB 88 F0 11 A2 09 B5 5C C9 08 30 04 EB 03 95
5C CA 10 F3 30 D6 A2 03 B5 69 95 57 CA 10 F9 A9 01 85 FB A2 03 A9 00 95 FB CA
D0 FB A2 03 B5 FB 95 22 95 26 CA 10 F7 A9 00 A2 03 95 69 CA 10 FB A0 20 A2 02
46 25 76 22 CA 10 FB 90 0C A2 7C 18 B5 AA 75 ED 95 ED E8 10 F7 A2 7D 06 26 36
AA E8 10 FB 88 10 DD A2 0B A9 00 95 5A CA D0 FB A0 20 A2 09 B5 5C C9 05 30 04
69 02 95 5C CA 10 F3 06 69 A2 FD 36 6D E8 D0 FB A2 09 B5 5C 2A C9 10 29 0F 95
5C CA 10 F4 88 D0 D7 E8 B5 5B F0 FB 09 30 99 5B 00 C8 E8 E0 0B F0 04 B5 5B 90
F1 88 B9 5B 00 C9 30 F0 F8 A2 7C 18 B5 DB E9 00 95 DB E8 10 F7 90 14 88 30 05
B9 5B 00 D0 EA A2 7C F6 7F D0 03 E8 10 F9 4C 68 C0 B9 5B 00 4C D2 FF

Попробуйте онлайн!

<?for($j++;strlen($p)<$argv[1];$j++)$p.=(int)strrev($j**2);echo($p[$argv[1]+2-3]); was necessary for type checking.

Vatermen

JavaScript, Арно

@(n)regexprep(fliplr(num2str((1:n)'.^2))'(:)',' +0*','')(n)%abcdefghijk

||answer||

cQuents 0, Стивен

new Long()

Попробуйте онлайн! Я понятия не имею, как работает этот код, но он все равно работал после удаления .replaceAll() .

NEK999

Язык Wolfram (Математика), Дженни_мати

/*!FooBarFooBarFoo!*/N->{String R="",T=R;for(int I=1,J;N+2>R.length();I++){for(T="",J=(I*I+"").length();0<J;T+=(I*I+"").charAt(--J));R+=new Long(T)+"";}return R.charAt(N);}

Попробуйте онлайн!

Альтернативная версия также на расстоянии 43:

p$_=substr w.(join"",map{whyddwzz;0|reverse$_**2}1..$_),$_,1

Попробуйте онлайн!

EnemohedEmago7

6502 Машинный код (С64), Феликс Пальмен

Я протестировал это со всеми тестовыми примерами вопросов и множеством дополнений (например, 2 ^ 15... это заняло некоторое время), и, похоже, оно работает так же, как оригинал с LD = 1.

a$j.=int reverse$_**2for 1..$_;$_--;say$j=~s/.{$_}(.).*/$1/r

Онлайн демо, использование: sys49152,n, где n — входные данные с индексом 0.

Brhansensw550

Луа, Катэнкё

d=lambda y:y if y>0 else d(y/10)
lambda n:''.join([str(d(x*x))[::-1]for x in range(1,n+1)])[n-1]#fix

Попробуйте онлайн!

Я не знаю Lua, но это было просто: просто заменил пробел на новую строку.

Zorro2001

Питон 3, Гипернейтрино

lambda o:"".join(str(p*p+2*p+1)[::~0].lstrip("0")for p in range(o+1))[o]

Попробуйте онлайн!

Amalsenda12

Питон 2, Дилнан

i=1s=""while(#s<...+0)do s=s..((i*i)..""):reverse():gsub("(0+)(%d+)$","%2")i=i+1 end
print(s:sub(...,...))

Попробуйте онлайн!

Примечание: это представление полицейского содержало ошибку и не работало для входных данных ниже 5. Пока я работал над этим, я создал это решение, которое имеет правильное расстояние Левенштейна И исправляет ошибку.

Nik_newk

Perl 5, (-p) Искали

Обновлено после комментария, Левенштейн Расстояние между

00 C0 20 FD AE A0 00 99 5B 00 C8 20 73 00 90 F7 99 5B 00 A2 0B CA 88 30 09 B9
5B 00 29 0F 95 5B 10 F3 A9 00 95 5B CA 10 F9 A9 01 A0 03 99 69 00 88 10 FA A0
20 A2 76 18 B5 E6 90 02 09 10 4A 95 E6 E8 10 F4 A2 03 76 69 CA 10 FB 88 F0 11
A2 09 B5 5C C9 08 30 04 E9 03 95 5C CA 10 F3 30 D6 A2 03 B5 69 95 57 CA 10 F9
A9 01 85 FB A2 03 A9 00 95 FB CA D0 FB A2 03 B5 FB 95 22 95 26 CA 10 F7 A9 00
A2 03 95 69 CA 10 FB A0 20 A2 02 46 25 76 22 CA 10 FB 90 0C A2 7C 18 B5 AA 75
ED 95 ED E8 10 F7 A2 7D 06 26 36 AA E8 10 FB 88 10 DD A0 0B A9 00 99 5A 00 88
D0 FA A0 20 A2 09 B5 5C C9 05 30 04 69 02 95 5C CA 10 F3 06 69 A2 FD 36 6D E8
D0 FB A2 09 B5 5C 2A C9 10 29 0F 95 5C CA 10 F4 88 D0 D7 E0 0A F0 05 E8 B5 5B
F0 F7 09 30 99 5B 00 C8 E8 E0 0B F0 04 B5 5B 90 F1 88 B9 5B 00 C9 30 F0 F8 A2
7C 18 B5 DB E9 00 95 DB E8 10 F7 90 14 88 30 05 B9 5B 00 D0 EA A2 7C F6 7F D0
03 E8 10 F9 4C 73 C0 B9 5B 00 4C D2 FF

и

(Join@@IntegerDigits@IntegerReverse[Range@#^2])[[1#]]&

55 лет

Попробуйте онлайн

Petr3000

Ява 8, Кевин Круйссен

(Join@@Table[k@FromDigits@Reverse@(k=IntegerDigits)[i*i],{i,10^4}])[[#]]&

Попробуйте онлайн!

Журнал изменений

Заменено * with ":\r$$ .
Убран тест на идеальные квадраты. Теперь напрямую используем идеальные квадраты.
Имена всех переменных обновлены до верхнего регистра.
Перепишите неравенства.
И, наконец, добавлен 21-байтовый ведущий комментарий для достижения правильного LD.

Solarismvl

Октава, Стьюи Гриффин

/*ZZ*/m=>[...Array(m+1).keys()].map(eval(atob("eD0+K1suLi4iIit4KnhdLnJldmVyc2VgYC5qb2luYGA="))).join``[m]

Попробуйте онлайн!

На самом деле я пытался найти свой собственный ответ Octave и заметил существующий. Моя уже была значительно короче, поэтому добавления комментария в конце было достаточно, чтобы добраться до необходимого расстояния 63.

Arxej

PHP, Джо.

(*1)

Попробуйте онлайн!

(Я планировал изменить неравенство, чтобы получить еще больший LD...)

Ctacebu4

6502 Машинный код (С64), Феликс Пальмен

Это также может быть «простая» трещина, но это появляется работать как оригинал.
Имея LD = 1, очень заманчиво попытаться взломать его (извини, Феликс). :)

((show.(*1).read.reverse.show.(^2)=<<[1..])!!)

Онлайн демо, использование: sys49152,n, где n — входные данные с индексом 0.

Похожие темы	Дата
Как создать флеш игру	19.12.2024, 05:12
How to generate PDF files in FMX Android project using JAVA classes (Delphi Firemonkey native class)	19.12.2024, 05:12
Code Golf - Возвращает N-Й Элемент Массива, Даже Если Он Выходит За Пределы	19.12.2024, 05:12
Codegolf — Сокращенные Комбинированные Функции	19.12.2024, 05:12
Codegolf — Найти Несвязанный Номер	19.12.2024, 05:12
Codegolf — Численное Интегрирование Посредством Построения Графиков	19.12.2024, 05:12
Codegolf — Сгенерируйте Допустимое Уравнение, Используя Указанные Операторы	19.12.2024, 05:12
Codegolf – Ты В Самой Большой Комнате?	19.12.2024, 05:12
Задача Кода. Напишите Программу Для Печати Квадратов Целых Чисел До 25 В Java Без Использования Переменных?	19.12.2024, 05:12
Codegolf - Собери Рождественские Подарки	19.12.2024, 05:12

Число - Расстояние Левенштейна И Оэис (Грабители)

Тестовые случаи (1-индексированные):

Грабители:

Adrew

Хаскелл, Лайкони

Maxim7755

JavaScript, Арно

cQuents 0, Стивен

Vatermen

Язык Wolfram (Математика), Дженни_мати

NEK999

6502 Машинный код (С64), Феликс Пальмен

EnemohedEmago7

Луа, Катэнкё

Brhansensw550

Питон 3, Гипернейтрино

Zorro2001

Питон 2, Дилнан

Amalsenda12

Perl 5, (-p) Искали

Nik_newk

Ява 8, Кевин Круйссен

Журнал изменений

Petr3000

Октава, Стьюи Гриффин

Solarismvl

PHP, Джо.

Arxej

6502 Машинный код (С64), Феликс Пальмен

Ctacebu4

I AM

Интересно