Il tuo compito oggi è quello di attuare un limite di tempo per ottenere input, un compito che ho trovato piuttosto fastidioso da realizzare nella maggior parte delle lingue.

Verrà creata una funzione di programma che richiede all'utente l'immissione. Immediatamente dopo che l'utente ha fornito l'input, stampa il messaggio input receivede termina l'esecuzione / ritorno. Tuttavia, se l'utente attende più di 10 secondi per fornire input, emette il messaggio no input receivede termina l'esecuzione / ritorno.

L'input deve provenire dalla stdin(console) o equivalente, non dalla funzione o dagli argomenti del programma, tuttavia l'output può essere a stdout, il valore di ritorno della funzione o qualsiasi altro metodo di output accettato.

Puoi chiedere qualsiasi quantità di input, può essere un singolo carattere, una riga, una parola o qualunque sia il metodo più breve nella tua lingua fintanto che attende almeno un carattere.

È necessario emettere non appena viene ricevuto l'ingresso, non dopo che sono trascorsi i 10 secondi.

Trascorsi 10 secondi, è necessario terminare, non è possibile continuare ad attendere l'immissione dopo la no input receivedstampa.

Si può presumere che l'input non sia passato nel tempo tra 10 secondi trascorsi e il testo stampato sullo schermo, poiché questa è una finestra estremamente piccola. Puoi anche supporre che l'equivalente incorporato nella tua lingua sleepsia costantemente, assolutamente perfetto.

Questo è code-golf , vince meno byte!

bash, 38 byte

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

Questo utilizza l' -topzione (timeout) per bash's read, che lo fa fallire e restituisce un codice di uscita diverso da zero se non viene fornito alcun input nel numero di secondi specificato.

Haskell, 97 89 byte

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

Se il timeouttimeout ritorna Nothinge Just Char( Char, perché stiamo usando getChar) altrimenti. Questo valore restituito viene convertito in "no "o ""per funzione maybe "no " mempty. Aggiungi "input received"e stampa.

Modifica: @BMO ha suggerito maybee salvato alcuni byte.

POSIX C99, 71 63 byte

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

Poiché pollrestituirà 1 in caso di successo, moltiplichiamo il risultato per 3 e spostiamo la stringa di conseguenza. Quindi, usiamo il fatto chestruct pollfd ha il seguente layout:

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

e che STDIN_FILENOè 0, POLLINè 1di sostituire pfdcon int pfd[] = {0,1}, che finalmente facciamo un letterale composto (come consentito dal C99).

Applescript, 113

Applescript non legge davvero da STDIN. Speriamo che a display dialogsia accettabile qui:

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

APL (Dyalog) , 41 40 byte

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

Questa è una funzione tacita anonima che necessita di un argomento fittizio per essere eseguita .

'no input received' la stringa completa

↓⍨ rilasciare un numero di caratteri dalla parte anteriore di quello corrispondente al numero restituito da

{ funzione esplicita anonima ( ⍵indica l'argomento)

 ⎕RTL←10 imposta R esponse T ime L imit su dieci secondi

 3*⍨ aumentare quel numero (dieci) alla potenza di tre (un migliaio significa "tutto")

 :: su tali eccezioni (tutte),

  0 ritorna 0

 ⋄ provare:

  ⍞ ottenere input

  3⊣ scartalo e invece restituisci 3

}fine della funzione (si noti che l'argomento ⍵non è mai stato menzionato)

Perl , 74 67 byte

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

Vecchia versione

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

(Esegui via perl -M5.10.1 ...)

Perl 6,  72  66 bytes

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

Try it with no input
Try it with input

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

Try it with no input
Try it with input

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 bytes

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

Saved 17 bytes thanks to @VisualMelon.

Full/Formatted version:

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 bytes

-7 thanks to @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

Waits until a number is pressed.

I am trying to figure out how to golf the sequence {72,73,74,82,83,84,92,93,94}. It is taking up a lot of space.

NodeJS, 105 103 101 bytes

-2 bytes thanks to @apsillers
-2 bytes by moving console.log() into exit()

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

Run by saving to a file and running it with node or run it straight from the command line by doing node -e "<code>"

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

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

<input id=i

• 2 bytes saved thanks to apsillers pointing out that I'm dumb!

Try it

Requires a closing > on the input in order to work in a Snippet.

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

<input id=i>

VB.Net - 174 bytes

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

COBOL version coming tomorrow ;-)

Go, 149 bytes

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 bytes

^{2 bytes saved by Blauhirn}

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

AHK has a built-in timeout for input boxes.
I tried to get clever and use !o instead of ErrorLevel but that fails if the user inputs a falsey value.
Almost half of the answer is just the command names and fixed text.

Python3, 100 89 83 71 bytes

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

First try at golfing.

-4 for any(), -7 for slicing, thanks @user2357112!

-6, get select() from pty instead of select.

PowerShell, 110 bytes

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

Python 3, 158 bytes

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)

I tried running Seth's Python 3 answer but on Windows it throws ModuleNotFoundError: No module named 'termios', and since I can't comment on his answer about it, I decided to instead come up with a solution that should be platform independent.

It's my first time golfing so I'm sure it could be improved.

Tcl, 99 bytes

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

SmileBASIC 3, 74 bytes

"Accepts input" by waiting for any button press (that should count as input.)

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

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

1: When GF clicked

1: ask [] and wait

1 + 14 chars: say [input received]

1: stop [all v] (note: since "all" was its default setting I counted the block as 1)

1 + 2 digits: wait (10) seconds

1 + 17 chars: say [no input received]

1: stop [all v]

><>, 43 + 6 = 49 bytes

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

Try it online!

+5 for the -t.08 flag, which sets the tick to 0.08 seconds, and +1 for the a flag, which counts whitespace and skipped instructions as ticks.

The program checks for input about once every second, and exits the loop if input is detected. If input is not received, it exits the loop from the bottom, appending no to the beginning of the string. The initial / is to ensure that the last check for input is exactly on the 10 second mark.

It then takes about 5-6 seconds to print the string itself.

Java 1.4+, 284 bytes

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

Please don't suggest Version-specific Java improvements, this is a generic Java answer that works in all currently stable Java Environments (1.4 and above).

Very freaking wordy... The catch is required, can't throw it. System import shaves off like 5 bytes... Overloading is also wordy, so it ends up a wordy poorly-golfed-looking mess.

Julia 0.6, 78 bytes

Longer than I expected. See comments for "no input recieved" TIO link.

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

Try it online!

SmileBASIC, 74 73 bytes

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

Takes 1 character of input.

And a 39 byte solution which probably isn't valid (doesn't actually accept text input, just has an OK button that you can press)

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