Este es un nuevo tipo de desafío inspirado en el problema Recuperar el código fuente mutado .

Debe escribir dos programas o funciones en el mismo idioma. El primero debe resolver la Tarea # 1 y el segundo debe resolver la Tarea # 2.

Su puntaje será la suma del programa más largo y la distancia de Levenshtein entre el código fuente de los dos programas. Una puntuación más baja es mejor, por lo que debe intentar hacer que las dos soluciones sean similares, manteniendo cortas las duraciones de los programas.

Tarea 1

Se le da un número entero positivo Ny debe generar la secuencia Collatz de Nseparados por espacios o nueva línea. Se permite el separador final.

El primer elemento de la secuencia de Collatz es N. El resto de los elementos se generan en función de su sucesor :$a_{i-1}$

Tan pronto como la secuencia llega, 1no se generan nuevos elementos.

Entrada => Ejemplos de salida:

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

Tarea 2

Un par de primos gemelos es un par de enteros positivos cuya diferencia es 2 y ambos son primos.

Se le da un número entero positivo Ny debe generar el par más pequeño de primos gemelos donde ambos primos son más grandes que NEl primer número debe ser el más pequeño y los dos primos deben estar separados por espacios o nueva línea. Se permite el separador final.

Entrada => Ejemplos de salida:

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

Fragmento para calcular el puntaje

(Modificación de la del problema Recuperar el código fuente mutado ).

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>

Editar

En el encabezado de las respuestas usemos el formato

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

P.ej

Python 2, 60 + 32 = 92

Pyth, 18 + 13 = 31

Secuencia Collatz:

QWtQ=Q@,/Q2h*Q3QQ

Primes gemelos:

=Qf!ttP*T+T2hQQ+Q2

Pruébalo aquí.

Algunas ideas gracias a FryAmTheEggman.

CJam, 24 + 17 = 41 42

Programa Collatz :

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

Programa de primos gemelos :

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

Ambos toman datos de STDIN e imprimen números separados por espacio / nueva línea a STDOUT

Pruébalos en línea aquí

CJam, 25 + 16 = 41

Programa Collatz:

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

Programa de primos gemelos:

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

Pruébalo aquí.

Acabo de jugar golf los dos por ahora. Veré si puedo reducir el puntaje de alguna manera.

Pyth, 20 + 14 = 40 34

Collatz:

QWtQ=Q@,/Q2h*3QQQ

Pares principales:

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

Ambos son programas que toman datos de STDIN y generan los números en las nuevas líneas. Acabo de jugar golf ambas respuestas mientras usamos la misma primitiva de bucle por ahora. Esto probablemente podría mejorarse bastante.

Editar: Se agregó una mejor verificación de las condiciones robadas de @isaacg. Parece que usar filtro es aún más corto que usar un ciclo while para los pares primos.

Pruébelo en línea aquí.

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

-4 puntuación gracias solo a ASCII

Secuencia Collatz (14 bytes):

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

Pruébalo en línea!

Primes gemelos (14 bytes):

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

Pruébalo en línea!

Golfed Twin primes (11 bytes):

[ÅNDÌp#]DÌ»

Pruébalo en línea!

Java 8, 118 + 84 = 202

Collatz:

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

Primos gemelos:

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

Secuencia Collatz:

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

Programa de primos gemelos:

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

> <> , 116 + 86 = 202

Programa Collatz (46):

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

Programa de primos gemelos (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

Ay. Ambos programas comienzan con la misma atoifunción, pero después de eso los primos gemelos van cuesta abajo. La misma parte del código se repite dos veces para la verificación de primalidades: puede ser un poco más corto para reutilizar de alguna manera la pieza, pero la configuración no ahorraría muchos bytes.

Podría hacerlo mucho mejor arrojando la mitad posterior de primos gemelos a los lugares no utilizados del programa Collatz, pero no estoy seguro de si eso está permitido.

C ++ Distancia = 114 Longitud más larga = 155 Puntuación = 269

Tarea 1

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

Tarea 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;}

Tarea 2 mejorada

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;}