Votre tâche aujourd'hui consiste à mettre en place une limite de temps pour obtenir des commentaires, tâche que j'ai trouvé plutôt pénible à accomplir dans la plupart des langues.

Vous allez créer une fonction de programme qui invite l'utilisateur à entrer. Immédiatement après que l'utilisateur ait saisi les données, imprimez le message input receivedet terminez l'exécution / le retour. Cependant, si l'utilisateur attend plus de 10 secondes pour fournir une entrée, envoie le message no input receivedet termine l'exécution / le retour.

L'entrée doit provenir de stdin(la console) ou équivalente, et non des arguments de fonction ou de programme. Toutefois, la sortie peut être soit vers stdout, la valeur de retour de votre fonction ou toute autre méthode de sortie acceptée.

Vous pouvez demander n'importe quelle quantité d'entrée. Il peut s'agir d'un seul caractère, d'une ligne, d'un mot ou de la méthode la plus courte dans votre langue, à condition d'attendre au moins un caractère.

Vous devez sortir dès que l'entrée est reçue, pas après les 10 secondes.

Après 10 secondes, vous devez terminer, vous ne pouvez plus attendre les entrées après leur no input receivedimpression.

Vous pouvez supposer que la saisie n’est pas transmise dans le délai compris entre 10 secondes et l’impression de texte à l’écran car il s’agit d’une fenêtre extrêmement petite. Vous pouvez également supposer que l’équivalent intégré de votre langue sleepest constamment parfait.

C'est du code-golf , le moins d'octets gagne!

bash, 38 octets

read -t10||a=no;echo $a input received

Ceci utilise l' -toption (timeout) de bash read, ce qui provoque son échec et renvoie un code de sortie différent de zéro si aucune entrée n'est donnée dans le nombre de secondes spécifié.

Haskell, 97 89 octets

import System.Timeout
timeout(10^7)getChar>>=putStr.(++"input received").maybe"no "mempty

Si le timeouttemps est écoulé, il retourne Nothinget Just Char( Char, parce que nous utilisons getChar) sinon. Cette valeur de retour est convertie en "no "ou ""par fonction maybe "no " mempty. Ajouter "input received"et imprimer.

Edit: @BMO a suggéré maybeet enregistré des octets.

POSIX C99, 71 63 octets

main(){puts("no input received"+3*poll((int[]){0,1},1,10000));}

Ungolfed:

#include <unistd.h>
#include <poll.h>
#include <stdio.h>
int main()
{
  struct pollfd pfd; 
  pfd.fd = STDIN_FILENO; 
  pfd.events = POLLIN;  
  puts("no input received"+3*poll(&pfd,1,10000));
}

Puisque pollretournera 1 en cas de succès, nous multiplions le résultat par 3 et décalons la chaîne en conséquence. Ensuite, nous utilisons le fait qui struct pollfda la disposition suivante:

     struct pollfd {
     int    fd;       /* file descriptor */
     short  events;   /* events to look for */
     short  revents;  /* events returned */
 };

et c’est STDIN_FILENO-à 0- POLLINdire qu’il 1faut remplacer pfdpar int pfd[] = {0,1}ce que nous avons finalement créé une littérature composée (comme le permet le C99).

Applescript, 113

Applescript ne lit pas vraiment de STDIN. J'espère que display dialogc'est acceptable ici:

({"","no "}'s item((display dialog""default answer""giving up after 10)'s gave up as integer+1))&"input received"

APL (Dyalog) , 41 à 40 octets

'no input received'↓⍨{3*⍨⎕RTL←10::0⋄3⊣⍞}

C'est une fonction tacite anonyme qui nécessite un argument factice pour s'exécuter .

'no input received' la chaîne complète

↓⍨ déposez autant de caractères de l'avant que le nombre retourné par le

{ fonction explicite anonyme ( ⍵dénote l'argument)

 ⎕RTL←10 définir R ÉPONSE T ime L imit à dix secondes

 3*⍨ élever ce nombre (dix) à la puissance de trois (mille signifie "tous")

 :: sur ces exceptions (toutes),

  0 retourne 0

 ⋄ essayer:

  ⍞ obtenir des commentaires

  3⊣ Jeter cela et retourner à la place 3

}fin de fonction (notez que l'argument ⍵n'a jamais été mentionné)

Perl , 74 67 octets

$m="input received";$SIG{ALRM}=sub{die"no $m\n"};alarm 10;<>;say$m

Ancienne version

$m="input received";$SIG{ALRM}=sub{die "no $m\n"};alarm 10;<stdin>;say $m;

(Exécutez via perl -M5.10.1 ...)

Perl 6 ,  72  66 octets

my $s='input received';Promise.in(10).then:{say "no $s";exit};get;say $s

Essayez-le sans entrée
Essayez-le avec entrée

my$s='input received';start {sleep 10;say "no $s";exit};get;say $s

Essayez-le sans entrée
Essayez-le avec entrée

my $s = 'input received'; # base message

start {         # create a Promise with a code block
                # that is run in parallel
  sleep 10;     # delay for 10 seconds
  say "no $s";  # say ｢no input received｣
  exit          # exit from the process
}

get;            # get a line from the input
say $s          # say ｢input received｣

C #, 180 171 148 131 octets

()=>{var t=new System.Threading.Thread(()=>{System.Console.ReadKey();});t.Start();return(t.Join(10000)?"":"no ")+"input recieved";}

Sauvegardé 17 octets grâce à @VisualMelon.

Version complète / formatée:

class P
{
    static void Main()
    {
        System.Func<string> f = () =>
        {
            var t = new System.Threading.Thread(() =>
            {
                System.Console.ReadKey();
            });
            t.Start();

            return (t.Join(10000) ? "" : "no ") + "input recieved";
        };

        System.Console.WriteLine(f());
        System.Console.ReadLine();
    }
}

TI-BASIC, 84 77 octets

-7 grâce à @ kamoroso94

:startTmr→T         //Start Timer, 5 bytes
:Repeat checkTmr(T)=10 or abs(int(.1K)-8)≤1 and 1≥abs(3-10fPart(.1K  //Loop until the timer is 10 seconds or a number key is pressed, 32 bytes
:getKey→K           //get key code, 4 bytes
:End                //end loop, 2 bytes
:"NO INPUT RECEIVED //Push string "NO INPUT RECEIVED" to Ans, 18 bytes
:If K               //If input was received, 3 bytes
:Disp sub(Ans,3,15  //Diplay "INPUT RECEIVED", 9 bytes
:If not(K           //If no input, 3 bytes
:Ans                //Display "NO INPUT RECEIVED", 1 byte

Attend qu'un chiffre soit appuyé.

J'essaie de comprendre comment jouer au golf la séquence {72,73,74,82,83,84,92,93,94}. Cela prend beaucoup de place.

NodeJS, 105 103 101 octets

-2 octets grâce à @apsillers
-2 octets en passant console.log()dansexit()

with(process)stdin.on('data',r=x=>exit(console.log((x?'':'no ')+'input received'))),setTimeout(r,1e4)

Exécuter en enregistrant dans un fichier et en l'exécutant avec node ou directement depuis la ligne de commande en exécutant node -e "<code>"

JavaScript (ES6) + HTML, 86 84 82 79 + 11 = 97 95 93 90 octets

setTimeout(oninput=_=>i.remove(alert(`${i.value?"":"no "}input received`)),1e4)

<input id=i

• 2 octets économisés grâce à apsillers soulignant que je suis idiot!

L'essayer

Nécessite une fermeture >sur le inputpour travailler dans un Snippet.

setTimeout(oninput=_=>i.remove(alert(`${i.value?"":"no "}input received`)),1e4)

<input id=i>

VB.Net - 174 octets

Module M
Sub Main()
Dim t=New Threading.Thread(Sub()Console.Read()):t.Start():Console.WriteLine(If(t.Join(10000),"","no ") & "input received"):End
End Sub
End Module

Version COBOL à venir demain ;-)

Go, 149 octets

package main
import(
."fmt"
."time"
."os"
)
func main(){
o:="input received"
go func(){Sleep(1e10)
Print("no "+o)
Exit(0)}()
i:=""
Scan(&i)
Print(o)}

AHK , 67 à 65 octets

^{2 octets enregistrés par Blauhirn}

InputBox,o,,,,,,,,,10
s:=ErrorLevel?"no ":
Send %s%input received

AHK a un délai d'expiration intégré pour les zones de saisie.
J'ai essayé d'être intelligent et d'utiliser !oau lieu de, ErrorLevelmais cela échoue si l'utilisateur entre une valeur Falsey.
Près de la moitié de la réponse se résume aux noms de commande et au texte fixe.

Python3, 100 89 83 71 octets

import pty
print("no input received"[3*any(pty.select([0],[],[],10)):])

Essayez d'abord de jouer au golf.

-4 pour any(), -7 pour le découpage, merci @ user2357112!

-6, obtenir select()de ptyau lieu de select.

PowerShell, 110 octets

$s1=date;while(![console]::KeyAvailable-and($i=((date)-$s1).seconds-lt10)){}
"{0}input received"-f(,'no ')[$i]

Python 3, 158 octets

import os,threading as t,time
def k(t=10):time.sleep(t);print("No input received"[(10-t)//3:]);os.kill(os.getpid(),t)
t.Thread(None,k).start()
if input():k(0)

J'ai essayé d'exécuter la réponse Python 3 de Seth, mais sous Windows, elle ne fonctionne pas ModuleNotFoundError: No module named 'termios', et comme je ne peux pas commenter sa réponse à ce sujet, j'ai décidé de proposer une solution qui devrait être indépendante de la plate-forme.

C'est la première fois que je joue au golf, alors je suis sûr que cela pourrait être amélioré.

Tcl, 99 octets

after 10000 {set () no}
vwait [fileevent stdin r {gets stdin (x)}]
puts [lappend () input received]

SmileBASIC 3, 74 octets

"Accepte les entrées" en attendant que vous appuyiez sur un bouton (qui devrait compter comme entrée).

M=MAINCNT@L
N=MAINCNT-M>599CLS?"NO "*N;"INPUT RECEIVED
ON N+BUTTON()GOTO@L

Scratch 2 / 3.x, 41 points ( Explication )

1: Quand GF a cliqué

1: demander [] et attendre

1 + 14 caractères: dites [entrée reçue]

1: stop [all v] (note: comme "all" était son réglage par défaut, j'ai compté le bloc comme 1)

1 + 2 chiffres: attendez (10) secondes

1 + 17 caractères: dire [aucune entrée reçue]

1: arrêter [tous v]

> <> , 43 + 6 = 49 octets

a/!/i0(?\~"input recieved"r>o<
o "\?:-1/r"n

Essayez-le en ligne!

+5 pour le -t.08drapeau, qui définit le tick à 0,08 seconde, et +1 pour le adrapeau, qui compte les espaces blancs et les instructions ignorées sous forme de ticks.

Le programme vérifie les entrées environ une fois par seconde et quitte la boucle si une entrée est détectée. Si aucune entrée n'est reçue, la boucle sort de la fin, en ajoutant noau début de la chaîne. La première /est de s’assurer que le dernier contrôle de saisie se situe exactement dans les 10 secondes.

Il faut ensuite environ 5-6 secondes pour imprimer la chaîne elle-même.

Java 1.4+, 284 octets

import static java.lang.System.*;public class X{public static void main(String[]x){new Thread(){public void run(){try{Thread.sleep(10000L);}catch(Exception e){}out.print("no input recieved");exit(0);}}.start();new java.util.Scanner(System.in).nextLine();out.print("input recieved");}}

Ungolfed:

import static java.lang.System.*;

public class InputAndWait {
    public static void main(String[] x) {
        new Thread() {
            public void run() {
                try {
                    Thread.sleep(10000L);
                } catch (Exception e) {
                }
                out.print("no input recieved");
                exit(0);
            }
        }.start();
        new java.util.Scanner(System.in).nextLine();
        out.print("input recieved");
    }
}

Ne suggérez pas d'améliorations Java spécifiques à la version. Il s'agit d'une réponse Java générique qui fonctionne dans tous les environnements Java stables (1.4 et supérieurs).

Très freaking wordy ... La capture est nécessaire, ne peut pas le jeter. L'importation du système réduit la taille de 5 octets ... La surcharge est également verbeuse, elle finit donc par devenir un désordre monotone au golf.

Julia 0.6 , 78 octets

Plus long que prévu Voir les commentaires pour "aucune entrée reçue" lien TIO.

s="input recieved"
Timer(x->(show("no "*s);exit()),10)
readline(STDIN)
show(s)

Essayez-le en ligne!

SmileBASIC, 74 73 octets

M=MAINCNT
WHILE!I*M>MAINCNT-600I=INKEY$()>"
WEND?"no "*!I;"input received

Prend 1 caractère de saisie.

Et une solution de 39 octets qui n'est probablement pas valide (n'accepte pas réellement la saisie de texte, a juste un OKbouton sur lequel vous pouvez appuyer)

?"no "*!DIALOG("",,,10);"input received