Tengo demasiado frío, sube la temperatura


53

Este es mi primer concurso de golf.

Qué necesitas hacer

Construirme, en la menor cantidad de bytes posible, mi sistema de control remoto de CA. Mi habitación está muy fría en este momento, y me falta mi control remoto.

Ahora, no quiero que literalmente lo construyas ni nada, solo juega al golf:

Un incremento lento de temperatura, que comienza en 40 grados y termina exactamente en 72. El tiempo de incremento siempre debe ser de 500 milis por incremento. Puede esperar otros 500 ms al final. Sin embargo, preferiría que se detuviera. El incremento en sí mismo debe aumentar en dos cada vez, como mi control remoto.

No deberías borrar la pantalla. Deberías tener nuevas líneas.

Qué debería pasar

Ejemplo de salida (todo lo que está entre paréntesis no se debe mostrar).

40
(wait 500 millis)
42
(wait 500 millis)
44
(..repeat until 72..)
72
(stop or wait 500ms)

Tenga en cuenta que este es mi primer golf, así que me disculpo si es demasiado difícil para el golf. :(

¡Mucha suerte, golfistas!


3
Una cosa menor, pero "siempre debe ser de 500 milis" es fundamentalmente demasiado estricta para cualquier dispositivo razonable. Recomiendo especificar una variación, algo así como +/- 10%.
FryAmTheEggman

1
¿Puedes esperar 500 ms antes de mostrar la salida inicial?
FlipTack

35
-1 por usar Fahrenheit (no realmente, pero al menos deberías decir que lo estás usando; 40 grados centígrados no es demasiado frío en lo más mínimo)
John Dvorak

20
+1 por usar Fahrenheit, tiene mejor resolución que Celsius y es tan arbitrario como cualquier cosa que no sea Kelvin o Rankine
Nick T

8
@NickT, entonces no tienes suerte porque la resolución de este control remoto es de 2 ° F, que es superior a 1 ° C. Y puede obtener una resolución más alta en Celcius que Fahrenheit con un control remoto que puede mostrar 0.5 y mucho más si puede mostrar a 0.1. De todos modos, soy un hombre simple y no puedo diferenciar entre 22 y 23 ° C, por lo que la alta resolución en este caso es inútil para mí
phuclv

Respuestas:


43

Bash + utilidades de Linux, 19

seq 40 2 72|pv -qlL2

seqgenera la salida numérica. pvlo limita a 2 líneas / seg.


2
La -qsupresión de salida va a STDERR, por lo que no creo que lo necesite.
Dennis

14
Una excelente demostración de "haz una cosa y hazlo bien" con las herramientas adecuadas para el trabajo. :)
Pomo de la puerta

2
Acercándose a "anti-anti-golfscript campo" territorio.
Vi.

42

Minecraft 1.9.0+, 204 162 bytes + 58 36 28 24 20 bloques = 262 240 232 186 182 blytes

Esta solución está mejorada y no se puede ver completa en una, o incluso en dos capturas de pantalla. Utiliza dos fallas y abusa de otras dos características del juego.

¡CORRER!  ¡MINECRAFT TE MATARÁ!

Esta solución utiliza los mismos principios que el siguiente, solo un diseño más compacto de 4 bloques.

  • Abusa del hecho de que los bloques de comandos de Cadena (bloques verdes) no pueden ser alimentados por redstone, solo por una señal de un bloque de comandos de impulso (naranja).

  • Abusa del hecho de que los pistones tardan 0,30 segundos en extenderse por completo, y Redstone solo necesita 0,10 segundos para registrar una señal.

  • También abusa de una falla doble para apagar el temporizador (TNT): la piedra roja al lado del temporizador (TNT) no solo se activa, sino que también piensa que la TNT es otra piedra roja y la alimenta.

  • Además de todos estos abusos, el acortador de señal (bajo el TNT) es de un solo uso, después de que se enciende, cambia de forma, permitiendo pasar la señal a través del "incrementador" (bloque naranja superior)

Se puede ver un poco de explicación sobre la funcionalidad de sus diferentes partes en las soluciones más antiguas (pero mejor en la que se encuentra a continuación). ¡También puedes probarlo sin conexión! (la solución simplificada se incrementa en 4, funciona solo en 1.11+) ejecutando este comando en un bloque de comandos .


Solución anterior, Minecraft 1.9.0+, 186 blytes:

ABUSO DE MINECRAFT

Como TNT normalmente explota después de 3.0s en Minecraft, este debe ser colocado por un comando ( /setblock) con un fusible especificado. También utiliza un diseño más compacto para eliminar el bloque de comandos redundante (que contiene 42 bytes) y redstone en las versiones anteriores. Estoy seguro de que esto no puede bajar más ...

Solución anterior, Minecraft 1.9.0+, 232 blytes:

Vaya, descubrí que estas soluciones anteriores aumentan en 4 ...

golfcraft

Utiliza la función de cadena de bloque de comando 1.9 (cosa de bloque verde) para guardar bloques. También utiliza un acortador de señal más compacto que en las soluciones más antiguas.

Solución aún más antigua, Minecraft 1.7.0+, 240 blytes:

el monstruo sin alma

Utiliza un temporizador más compacto (TNT) que la primera solución (a continuación).

La solución más antigua, Minecraft 1.7.0+, 262 blytes:

el viejo monstruo


Esto es tan largo debido a la forma en que Minecraft maneja las variables:

  • Para definir una variable (int): scoreboard objectives add <variable> dummy

  • Para establecer un valor en una variable (cada entidad, incluidos los jugadores, tiene su propio valor de variable): scoreboard players set <entity> <variable> <value>

    • *se puede usar <entity>para seleccionar todas las entidades y guardar bytes.

    • solo se pueden usar variables definidas

    • el valor de la variable debe establecerse en un número, no en una variable

  • Para incrementar var1 por var2: scoreboard players operation <entity> var1 += <entity> var2

    • <entity>debe ser una sola entidad, por ejemplo. @pno*

Las capturas de pantalla son mías, con doble licencia bajo WTFPL y qué licencia SE decide usar hoy (actualmente cc by-sa 3.0 with attribution required) :-)


2
¡Guauu! Usaste Minecraft, ¡eso es genial! +1 :)
IMustBeSomeone

1
@IMustBeSomeone Espera, encontré una manera de jugar al golf :)
RudolfJelin

1
... su circuito explota cuando termina.
SuperJedi224

@ SuperJedi224 Sí. ¿Esta mal?
RudolfJelin

2
@ RudolfL.Jelínek Estoy bastante seguro de que en realidad no va en contra de las reglas, pero es un poco extraño. Por otra parte, eso es parte de lo que se trata el código golf.
SuperJedi224

18

Vim, 24 , 23 bytes / pulsaciones de teclas

i40<esc>qq:sl500m
Yp2<C-a>q15@q

¡Un byte guardado gracias a @Kritixi Lithos!

Escrito desde mi teléfono, probado en vim móvil (que aparentemente es algo real).

Aquí hay un gif que se está ejecutando:

ingrese la descripción de la imagen aquí

Y aquí hay una explicación de comando por comando:

i40<esc>            " Insert '40' into the buffer
        qq          " Start recording into register 'q'
          :sl500m   " Sleep form 500 ms
Y                   " Yank this line
 p                  " and paste it on a newline
  2<C-a>            " Increment this line twice
        q           " Stop recording
         15@q       " Callback register 'q' 15 times

El sde mses opcional, se puede quitar para guardar un byte :)
Kritixi Lithos

@KritixiLithos ¡Lo sabía! ¿Cómo pasé por alto eso? ¡Gracias!
DJMcMayhem

8
El alumno se convirtió en maestro: P
Kritixi Lithos

1
"Publicaré un gif y una explicación más tarde una vez que tenga acceso a una computadora" espera medio año (no del todo)
HyperNeutrino

@HyperNeutrino Jajajajaja, me olvidé por completo de esta respuesta. ¿Es eso mejor? P
DJMcMayhem

10

JavaScript (ES6), 52 bytes

f=(i=40)=>console.log(i)|i-72&&setTimeout(f,500,i+2)

f()


He aquí una más ordenada reorganización de su respuesta para usted: f=(i=40)=>setTimeout(i>70||f,500,i+2,console.log(i)). Lamentablemente, sigue siendo los mismos 52 bytes.
Ismael Miguel

¿No deberían ser 50bytes ya que no necesita contar f=según el meta consenso de que se permiten declaraciones de funciones anónimas?
R. Kap

1
@ R.Kap Buena captura, pero en este caso, f=se requiere porque la función necesita llamarse a sí misma (como primer parámetro setTimeout).
ETHproductions

8

Jalea , 13 12 bytes

40µṄœS.+2µ⁴¡

Pruébalo en línea! El programa Jelly está envuelto en un script Bash para prefijar cada línea de salida con una marca de tiempo.

Cómo funciona

40µṄœS.+2µ⁴¡  Main link. No arguments.

40             Set the return value to 40.
  µ      µ⁴¡  Execute the chain between the two µ 16 times.

   Ṅ           Print the return value, followed by a linefeed.
      .        Yield 0.5.
    œS         Sleep for 0.5 seconds. Yield the previous result.
       +2      Add 2.

Después de la última iteración, el valor final de 72 se imprime implícitamente y el programa sale.


Wow, ¿es esa una función prevista, poder llamar a otros idiomas desde Bash in tio?
millas

2
Sí, eso es lo que se pretende. Debería poder hacer lo mismo desde todos los idiomas que admiten llamadas al sistema o características similares.
Dennis

Para un lenguaje que gana desafíos de golf y la parte del desafío que se incrementa en un valor constante, esto me parece muy largo :)
AlexRacer

6

Perl 6 , 30 bytes

for 20..36 {sleep .5;say 2*$_}

Lamento que parezca un código sin golf, no veo una forma de acortarlo ...

La versión que se detiene justo después del último número sería de 37 bytes:

for 20..36 {sleep .5 if $++;say 2*$_}

¿Necesitas el espacio después 36?
NoOneIsHere

2
.say&sleep(.5) for 40,42...7229 bytes
ugexe

@ugexe: Confiar en los efectos secundarios de los argumentos de los operadores que no son de corto circuito para que sucedan en orden, me parece un truco específico de implementación, porque AFAIK la especificación del lenguaje no garantiza esto. OTOH, tal vez para el código de golf, ¿está bien?
sonríe el

@SeeOneRhino: Sí. Un {paréntesis que sigue a otra expresión sin espacios en blanco, se interpreta como el inicio de un subíndice hash ("matriz asociativa"). Perl 6 es estricto así, porque su gramática fue diseñada deliberadamente para permitir el análisis de código fuente de una sola pasada (casi) sin retroceso.
sonríe el

6

Pyth - 12 bytes

Muy simple, usa un bucle for de 0-17.

V17+40yN.d.5

Más pequeño hasta ahora, estás empatado en el primer lugar :)
IMustBeSomeone

6

TI-Basic (solo CE o CSE), 16 bytes

:For(A,40,72
:Pause A,.5
:End

Tenga en cuenta que muchos comandos son tokens de un solo byte.


¿Veo 29 ​​bytes? ¿Es posible que muestres el código de 8 bytes?
redstarcoder

1
TI-Basic tiene su propio conjunto de caracteres. For(, Pause , End, Y los dos puntos al comienzo de las líneas son todos los bytes individuales.
Julian Lachniet

Extraño ... está bien, parece que otras respuestas también lo hacen.
redstarcoder

1
Nuestro mejor hasta ahora! Sin embargo, no sé si contaré el juego de caracteres.
IMustBeSomeone


5

MATL , 14 bytes

17:E38+".5Y.@D

Pruébalo en MATL Online! Es posible que deba volver a cargar la página si inicialmente no funciona.

Explicación

17:     % Push array [1 2 ... 17]
E       % Multiply by 2, element-wise
38+     % Add 38, element-wise. This gives [40 42 ... 72]
"       % For each k in that array
  .5Y.  %   Pause 0.5 seconds
  @D    %   Push k and display
        % End (implicit)

Versión anterior (antes del cambio de especificaciones), borrando la pantalla

17:E38+"5&Xx@D

Pruébalo en MATL Online!


No necesita borrar la pantalla.
Adám

@ Adám Gracias. Lo sé, pero tomó la misma cantidad de bytes y se ve mejor :-)
Luis Mendo

1
@LuisMendo El desafío de golf dice algo acerca de no limpiar la pantalla, después de las ediciones / aclaraciones (posiblemente después de su publicación)
Thomas Ward

@ThomasWard ¡Gracias por el aviso! El OP realmente debería haber notificado a los que respondieron sobre el cambio
Luis Mendo

4

Dyalog APL , 20 bytes

{⎕DL.5⊣⎕←⍵}¨38+2×⍳17

{ la función anónima

⎕DL retrasar...

.5⊣ la mitad (un segundo) en lugar del valor de

⎕← imprimir (con nueva línea)

 el argumento

aplicado a cada uno de

38+ treinta y ocho más

dos veces

⍳17 los enteros del 1 al 17


4

C compilado con Clang 3.8.1 en Linux, 62 59 58 bytes

2 bytes guardados gracias a @ranisalt

s=38;main(){for(;s<74;printf("%d\n",s+=2))usleep(500000);}

59 bytes

s=38;main(){for(;s<73;printf("%d\n",s+=2+usleep(500000)));}

62 bytes

s=38;main(){for(;s!=72;){printf("%d\n",s+=2);usleep(500000);}}

s=38                # Initializes a global (int) variable, this is only possible in C, in other languages from the C family variables must have an explicit type.
main()              # Is the main entry point, again as before, in case a type isn't specified C defaults to int
printf("%d\n",s+=2) # printf outputs to stdout based on the pattern defined in the first parameter 
                    # %d is a placeholder for an int variable
                    # \n appends a newline to stdout
                    # The second parameter increments the s variable and afterwards it goes in the placeholder's spot.
usleep(500000)      # This function is Linux specific, it takes an int as parameter, it represents how much time the app needs to sleep in microseconds

2
Gracias por la respuesta, y bienvenido al sitio. ¿Podría agregar un poco de explicación para aquellos que no están tan familiarizados con su idioma?
isaacg

1
Gracias por darme la bienvenida. Sí claro, puedo hacer eso. Además, ¿cómo hago para que mi publicación calcule cuántos bytes se necesitan? Lo escribí yo mismo, pero en las publicaciones de otros parece diferente.
Wade Tyler

Todos lo escriben ellos mismos, no hay una función de cálculo automático. Su encabezado se usa ** ... **en marcado, mientras que el encabezado tradicional en este sitio usa # .... He editado tu respuesta para que puedas ver cómo se hace.
isaacg

1
@isaacg Muchas gracias. Se ve mejor ahora.
Wade Tyler

1
El uso s<72guarda otro byte.
ranisalt

4

Scratch, 5 bloques

(espacio en disco 56.0kb)

img

(Perdón por la baja resolución!)

Se explica por sí mismo, de verdad. El valor de la variable se muestra en un cuadro en el "escenario".


¿Esto no tiene un incremento de 4? (en oposición a 2 como solicitud)
VisualMelon

1
@VisualMelon Ah, gracias por el aviso: había entendido mal la pregunta antes de que se editara; Más tarde lo releí y edité mi otra respuesta mientras me olvidaba de esta. ¡Gracias!
RudolfJelin

3

Mathematica, 34 bytes

Pause[Print@#;.5]&/@Range[40,72,2]

Programa completo No toma entradas y salidas a STDOUT.


3

R, 49 bytes

x=38;while(x<72){Sys.sleep(.5);x=x+2;cat(x,"\n")}

Solución muy trivial pero hace el truco.


Inicial x = 40 no imprime 40 al inicio. Tienes que comenzar con x = 38.
rnso

Divertido, la misma idea pero con un forbucle tiene exactamente la misma longitud.
JAD

3

Perl 6 , 27 bytes

sleep .say/2 for 40,42...72

saydevuelve True, que se convierte en un valor numérico 1cuando se divide por 2.

Las travesuras Unicode pueden reducirlo a 23 caracteres:

sleep .say/2 for ㊵,㊷…72

Pero eso es 29 bytes codificados en UTF-8.


3

Python 2, 57 56 55 Bytes

import time
a=40
while a<73:print a;time.sleep(.5);a+=2

EDITAR:

-1 Byte gracias a Mega Man

-1 Byte gracias a Flp.Tkc


1
Puede guardar un byte usando .5 en lugar de 0.5
Mega Man

@MegaMan Gracias, no me había dado cuenta de que eso podría funcionar
sonrad10

¿Por qué no quitar el paréntesis alrededor de la instrucción print y usar Python 2?
FlipTack


3

C #, 95 bytes

()=>{for(int i=40;i<73;i+=2){System.Console.WriteLine(i);System.Threading.Thread.Sleep(500);}};

Es un bucle simple, espera 500 ms adicionales al final.


3

QBIC , 21 bytes

[44,72,4|?a┘'sleep 1.

QBIC inicia un bucle FOR, que va de 44 a 72 e incrementa el contador en 4 en cada bucle. Luego duerme durante 1 segundo. QBasic no tiene una fuente de control más fina sleep, por lo que he agregado una .para simular dar .5como argumento.


3

Kotlin, 47 bytes

Supongo que no se dijo en la declaración del problema que las soluciones deberían contener un incremento de dos, por lo 40+2*ique aquí es legal.

Si se escribe como una fuente de Kotlin normal con main:

fun main(args:Array<String>){(0..16).map{println(40+2*it);Thread.sleep(500)}}

(77 bytes)

UPD : en Kotlin 1.3, args:Array<String>se puede eliminar, por lo que son 18 bytes menos.

Y en Kotlin Script, todo el programa sería

(0..16).map{println(40+2*it);Thread.sleep(500)}

(47 bytes)


Su primer programa parece esperar primero mucho tiempo y luego generar todos los resultados.
devRicher

1
@devRicher, parece que lo está ejecutando en try.kotlinlang.org. Si es así, eso es un problema del medio ambiente, parece que stdout no está enjuagado o algo así. Cuando lo ejecuto localmente, se comporta según lo previsto.
tecla


2

Haskell, 67 bytes

import System.Posix.Unistd
mapM((>>usleep 500000).print)[40,42..70]

Si solo quieres usar ghc, puedes guardar algunos bytes importando GHC.Concy usando en threadDelaylugar de usleep.


2

php, 38 bytes

for(;35>$t+=2;usleep(5e5))echo$t+38,_;

usa guión bajo como delimitador. Corre con -nr.


2

Clojure, 54 bytes

(doseq[t(range 32 73 2)](println t)(Thread/sleep 500))

Tercer ceceo ftw. Simplemente itera sobre el rango, imprimiendo y durmiendo cada iteración. Duerme al final.

Sin golf:

(doseq [t (range 32 73 2)]
    (println t)
    (Thread/sleep 500)))

Una versión que no duerme al final, 66 bytes.

(doseq[t(range 32 73 2)](println t)(if(< t 72)(Thread/sleep 500)))

Tenga en cuenta que estos son programas completos ya que las instrucciones no especifican. Agregue un byte a cada uno si se requiere una función.


2

Raqueta 46 bytes

(for((i(range 40 73 2)))(println i)(sleep .5))

Sin golf:

(define (f)
  (for ((i (range 40 73 2)))
    (println i)
    (sleep .5)))

Comando para ejecutar: (f)


1
Recuerde, no tiene que detenerse en 72, puede esperar otros 500 ms. :)
IMustBeSomeone

2

Octava, 38 35 bytes

Guardado 3 bytes gracias a @LuisMendo al cambiar endforaend

for i=20:36;disp(2*i);sleep(.5);end

Pruébalo en línea!

Soy nuevo en Octave, por lo que esta solución aún podría jugarse más. Cualquier consejo es bienvenido!

Sin golf

for i=20:36
  disp(2*i)
  sleep(.5)
end

2

Python 2, 57 58 Bytes

Editar

Contaba como 57 bytes en mi mano, pero TIO dice 58 ahora que estoy de vuelta en mi propia máquina, así que esa es mi oferta final. Curiosamente, TIO no parece respetar el tiempo de espera y simplemente espera y luego imprime toda la lista de una vez. Funciona en QPython para Android y Python 2 en mi caja de Ubuntu, así que eso es lo suficientemente bueno para mí.

import time
for x in range(40,74,2):print x;time.sleep(.5)

Pruébalo en línea!

Sería 58 59 en Python 3, así que no supera a @ sonrad10 de todos modos.


1
Esto arrojaría un error de sintaxis, necesita dos puntos (no punto y coma) después delrange(...)
FlipTack

Gracias @ Flp.Tkc. Fue escrito directamente en mi práctico hense el error tipográfico.
ElPedro

2

R, 44 42 bytes

Sencillo for-loop, es probable que haya una forma más golfista. (Además, el tachado 44 sigue siendo regular 44 ...)

for(i in 20:36*2)cat(i,"\n",Sys.sleep(.5))

2

F #, 60 bytes

async{for i in 40..2..72 do printfn"%d"i;do!Async.Sleep 500}

Esta es una expresión asíncrona, para ejecutarla, pasarla a Async.Starto Async.RunSynchronously.


2

Noodel , 10 bytes no competitivos

No puede competir porque Noodel nació después de que se creó el desafío :(

40Ḷ16ñ++ḍh

Intentalo:)

Cómo funciona

40         # Creates the literal number 40 and places it into the pipe.
  Ḷ16      # Loop the following code 16 times.
     ñ     # Print what is in the front of the pipe with a new line.
      ++   # Increment what is in the pipe by two.
        ḍh # Delay for a half a second (500ms).

No hay una versión de Noodel que admita la sintaxis utilizada en esta respuesta. Aquí hay una versión correcta:

kȥḶ16ñ⁺2ḍh

<div id="noodel" code="kȥḶ16ñ⁺2ḍh" input="" cols="10" rows="17"></div>

<script src="https://tkellehe.github.io/noodel/noodel-latest.js"></script>
<script src="https://tkellehe.github.io/noodel/ppcg.min.js"></script>

Al usar nuestro sitio, usted reconoce que ha leído y comprende nuestra Política de Cookies y Política de Privacidad.
Licensed under cc by-sa 3.0 with attribution required.