Это новый тип задач, вдохновленный проблемой « Восстановить измененный исходный код» .

Вы должны написать две программы или функции на одном языке. Первый должен решить задачу № 1, а второй должен решить задачу № 2.

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

Задание 1

Вам дано положительное целое число , Nи вы должны выводить последовательность Коллатца из Nразделенных пробелами или переводом строки. Конечный разделитель допускается.

Первым элементом последовательности Коллатца является N. Остальные элементы генерируются на основе их преемника :$a_{i-1}$

Как только последовательность достигает, 1новые элементы не генерируются.

Input => Примеры вывода:

6 => 6 3 10 5 16 8 4 2 1
8 => 8 4 2 1
1 => 1

Задача № 2

Пара двойных простых чисел - это пара натуральных чисел, разница которых равна 2, и они оба простые.

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

Input => Примеры вывода:

6 => 11 13
42 => 59 61
1 => 3 5

Фрагмент для подсчета очков

(Модификация одного в Восстановить проблему с измененным исходным кодом .)

var f=document.getElementById("f"),g=document.getElementById("s");function h(){var a=f.value,e=g.value,m=Math.max(a.length,e.length);if(10000<a.length)a="<span style='color:red'>First program is too long!</span>";else if(10000<e.length)a="<span style='color:red'>Second program is too long!</span>";else{if(0===a.length)a=e.length;else if(0===e.length)a=a.length;else{var d=[],b;for(b=0;b<=e.length;b++)d[b]=[b];var c;for(c=0;c<=a.length;c++)d[0][c]=c;for(b=1;b<=e.length;b++)for(c=1;c<=a.length;c++)d[b][c]=e.charAt(b-1)===a.charAt(c-1)?d[b-1][c-1]:Math.min(d[b-1][c-1]+1,Math.min(d[b][c-1]+1,d[b-1][c]+ 1));a=d[e.length][a.length]}a="Distance = "+a+"   Longer length = "+m+"   Score = <strong>"+(a+m)+"</strong>"}document.getElementById("d").innerHTML=a}f.onkeyup=h;g.onkeyup=h;

First program<textarea id=f rows=2 cols=80 style="width:100%"></textarea>Second program<textarea id=s rows=2 cols=80 style="width:100%"></textarea><p id=d></p>

редактировать

В шапке ответов воспользуемся форматом

[Language], [longer length] + [distance] = [final score],

Например

Python 2, 60 + 32 = 92

Пиф, 18 + 13 = 31

Последовательность Коллатца:

QWtQ=Q@,/Q2h*Q3QQ

Двойные простые числа:

=Qf!ttP*T+T2hQQ+Q2

Попробуй это здесь.

Некоторые идеи благодаря FryAmTheEggman.

CJam, 24 + 17 = 41 42

Программа Collatz :

ri2*{:N2%N3*)N2/?__p(}g;

Программа двойных простых чисел :

ri_2+]{:)_{mp}/&_+((}gS*

Оба принимают входные данные из STDIN и печатают числа, разделенные пробелом / новой строкой, в STDOUT

Попробуйте их онлайн здесь

CJam, 25 + 16 = 41

Программа Collatz:

l~2*{_2%{3*)}{2/}?_p_(}g;

Программа двойных простых чисел:

l~_2+]{:)_{mp}/&!_&}gS*

Проверьте это здесь.

Я просто играл в гольф оба из них на данный момент. Я посмотрю, смогу ли я как-нибудь уменьшить счет.

Пиф, 20 + 14 = 40 34

Коллатец:

QWtQ=Q@,/Q2h*3QQQ

Prime Pairs:

~Q1WttP*Q+Q2~Q1;Q+Q2

Обе программы, которые принимают ввод из STDIN и выводят числа в новых строках. Просто покажите оба ответа, используя пока один и тот же примитив цикла. Возможно, это можно было бы немного улучшить.

Редактировать: Добавлена ​​улучшенная проверка состояния украденного из @isaacg. Похоже, использование фильтра по-прежнему короче, чем использование цикла while для простых пар.

Попробуйте это онлайн здесь.

05AB1E , 14 + 13 10 9 = 27 24 23

-4 балла благодаря ASCII-только

Последовательность Коллатца (14 байтов):

[DÉi3*>ë2÷}Ð,#

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

Двойные простые числа (14 байтов):

[DÅND>>Dp#}s,,

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

Двойные простые числа в гольфе (11 байт):

[ÅNDÌp#]DÌ»

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

Ява 8, 118 + 84 = 202

Коллатец:

n->{for(System.out.println(n);n>1;System.out.println(n=n%2<1?n/2:3*n+1));}

Двойные простые числа:

n->{t:for(int p,z;;n++){for(z=n;z<n+3;z=z+2)for(p=2;p<z;p++)if(z%p<1)continue t;System.out.print(n+" "+(n+2));break;}}

Mathematica, 53 + 29 = 82

Последовательность Коллатца:

Print/@(NestWhileList[If[OddQ@#,3#+1,#/2]&,#,#>1&]);&

Программа двойных простых чисел:

Print/@(NestWhile[NextPrime,#,!PrimeQ[#+2]&]+{0,2});&

> <> , 116 + 86 = 202

Программа Collatz (46):

0i:0(?v$a*$'0'-+!
?v6,>:>~:nao:1=?;3*:2%
 >1+^

Программа двойных простых чисел (116):

0i:0(?v$a*$'0'-+!
v&2+1~<:-2
<v!?%&+1:&:v?=&:&:
 >&~0$2&2+v>&~143.
:&:1+&%?!v>:&:&=?v
0v?*r$0~&< .561~&<.1
:<;noan-2

Уч. Обе программы запускаются с одной и той же atoiфункцией, но после этого двойные простые числа идут вниз. Один и тот же кусок кода повторяется дважды для проверки простоты - может быть немного короче, чтобы как-то повторно использовать этот кусок, но настройка для него не сэкономит много байтов.

Может быть намного лучше, если бросить заднюю половину двойных простых чисел в неиспользуемые места программы Collatz, но я не уверен, разрешено ли это.

C ++ Расстояние = 114 Большая длина = 155 Оценка = 269

Задание 1

void c(int N){while(N>1){cout<<N<<' ';N=(N%2==0)?N/2:N*3+1;}cout<<N;}

Задача 2

int p(int x){int z=0;for(int i=2;i<x;i++){if(x%i==0){z=1;break;}}return z;}
void c(int N){N=(N%2==0)?N+1:N+2;int M=N+2;while(p(N)+p(M)>0){N=M;M+=2;}cout<<N<<' '<<M;}

Задача 2 улучшена

int p(int N){int z=0;for(int i=2;i<N;i++){if(N%i==0){z=1;break;}}return z;}
void c(int N){N=(N%2==0)?N+1:N+2;while(p(N)+p(N+2)>0){N+=2;}cout<<N<<' '<<N+2;}