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

Вы создадите функцию программы, которая запрашивает ввод данных пользователем. Сразу после ввода данных пользователем, напечатайте сообщение input receivedи завершите выполнение / возврат. Однако, если пользователь ожидает ввода более 10 секунд, выведите сообщение no input receivedи завершите выполнение / возврат.

Входные данные должны быть из stdin(консоли) или эквивалентными, а не аргументами функции или программы, однако выходные данные могут быть либо для stdoutвозвращаемого значения вашей функции, либо для любого другого принятого метода вывода.

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

Вы должны выводить, как только вход получен, а не через 10 секунд.

По истечении 10 секунд вы должны закончить, вы не можете продолжать ждать ввода послеno input received как был напечатан.

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

Это код-гольф , побеждает меньше байтов!

Баш, 38 байт

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

При этом используется -tопция (timeout) для bash read, что приводит к сбою и возврату ненулевого кода выхода, если в течение указанного количества секунд не было введено никаких данных.

Haskell, 97 89 байт

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

Если timeoutвремя ожидания возвращается, Nothingи Just Char( Charпотому что мы используем getChar) в противном случае. Это возвращаемое значение преобразуется в "no "или ""функцией maybe "no " mempty. Добавить "input received"и распечатать.

Редактировать: @BMO предложил maybeи сохранил несколько байтов.

POSIX C99, 71 63 байта

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

Так pollкак в случае успеха вернет 1, мы умножим результат на 3 и переместим строку соответственно. Затем мы используем тот факт, что struct pollfdимеет следующий макет:

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

и что STDIN_FILENOэто 0, POLLINявляется1 заменить pfdс int pfd[] = {0,1}, что мы , наконец , сделать соединение litteral (как разрешено C99).

Applescript, 113

Applescript на самом деле не читает из STDIN. Надеюсь, что display dialogприемлемо здесь:

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

APL (Дьялог) , 41 40 байт

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

Это анонимная молчаливая функция, для запуска которой требуется фиктивный аргумент .

'no input received' полная строка

↓⍨ отбросить столько символов с начала, сколько было возвращено

{ явная анонимная функция ( ⍵обозначает аргумент)

 ⎕RTL←10 установить R esponse T IME L IMIT до десяти секунд

 3*⍨ возведите это число (десять) до степени три (тысяча означает «все»)

 :: за этими исключениями (все),

  0 вернуть 0

 ⋄ пытаться:

  ⍞ получить вход

  3⊣ откажитесь от этого и вместо этого верните 3

}конец функции (обратите внимание, что аргумент ⍵никогда не упоминался)

Perl , 74 67 байт

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

Старая версия

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

(Запустить через perl -M5.10.1 ...)

Perl 6 ,  72  66 байт

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

Попробуй без ввода
Попробуй с вводом

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

Попробуй без ввода
Попробуй с вводом

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 байт

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

Сохранено 17 байт благодаря @VisualMelon.

Полная / Отформатированная версия:

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 байтов

-7 благодаря @ 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

Ожидание, пока не будет нажата цифра.

Я пытаюсь понять, как играть в гольф {72,73,74,82,83,84,92,93,94}. Это занимает много места.

NodeJS, 105 103 101 байт

-2 байта благодаря @apsillers
-2 байта при переходе console.log()вexit()

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

Запустите, сохранив файл и запустив его с узлом, или запустите его прямо из командной строки, выполнив node -e "<code>"

JavaScript (ES6) + HTML, 86 84 82 79 + 11 = 97 95 93 90 байт

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

<input id=i

• 2 байта сохранены благодаря апсиллерам, указывающим, что я тупой!

Попытайся

Требуется закрытие >на inputдля работы в сниппет.

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

<input id=i>

VB.Net - 174 байта

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

Go, 149 байт

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 байт

^{Blauhirn спас 2 байта}

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

AHK имеет встроенный тайм-аут для полей ввода.
Я попытался стать умным и использовать !oвместо, ErrorLevelно это не получится, если пользователь введет значение Фальси.
Почти половина ответа - это только названия команд и фиксированный текст.

Python3, 100 89 83 71 байт

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

Сначала попробуйте в гольф.

-4 за any(), -7 за нарезку, спасибо @ user2357112!

-6, получить select()от ptyвместо select.

PowerShell, 110 байт

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

Python 3, 158 байт

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)

Я попытался запустить ответ Сета на Python 3, но в Windows он выдаетModuleNotFoundError: No module named 'termios' , и, поскольку я не могу прокомментировать его ответ об этом, я решил вместо этого найти решение, которое должно быть независимым от платформы.

Я впервые играю в гольф, поэтому уверен, что это можно улучшить.

Tcl, 99 байт

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

SmileBASIC 3, 74 байта

«Принимает ввод», ожидая любого нажатия кнопки (которое должно учитываться как ввод).

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

Царапина 2 / 3.х, 41 балл ( Пояснение )

1: когда GF нажал

1: спросите [] и подождите

1 + 14 символов: скажем [вход получен]

1: остановка [все v] (примечание: так как «все» было настройкой по умолчанию, я посчитал блок как 1)

1 + 2 цифры: ждать (10) секунд

1 + 17 символов: говорят [вход не получен]

1: остановить [все v]

> <> , 43 + 6 = 49 байт

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

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

+5 для -t.08флага, который устанавливает отметку в 0,08 секунды, и +1 дляa флага, который считает пробелы и пропущенные инструкции в виде отметок.

Программа проверяет ввод примерно раз в секунду и выходит из цикла, если вход обнаружен. Если вход не получен, он выходит из цикла снизу, добавляя noк началу строки. Начальный/ необходимо убедиться, что последняя проверка на вход точно находится на отметке 10 секунд.

Затем на печать самой строки уходит около 5-6 секунд.

Java 1.4+, 284 байта

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

Пожалуйста, не предлагайте улучшения Java для конкретной версии, это общий ответ Java, который работает во всех в настоящее время стабильных средах Java (1.4 и выше).

Очень чертовски многословно ... Требуется улов, не могу его бросить. Системный импорт сбрасывает, как 5 байт ... Перегрузка также многословна, так что в итоге получается грязный, плохо выглядящий гольф.

Юлия 0,6 , 78 байт

Дольше, чем я ожидал. См. Комментарии для ссылки "TIO не получен".

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

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

SmileBASIC, 74 73 байта

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

Принимает 1 символ ввода.

И 39-байтовое решение, которое, вероятно, недопустимо (на самом деле не принимает ввод текста, просто есть OKкнопка, которую вы можете нажать)

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