Nhiệm vụ của bạn hôm nay là thực hiện giới hạn thời gian để nhận đầu vào, một nhiệm vụ mà tôi thấy khá khó chịu để đạt được trong hầu hết các ngôn ngữ.

Bạn sẽ tạo một chức năng chương trình nhắc người dùng nhập liệu. Ngay sau khi người dùng cung cấp đầu vào, hãy in thông báo input receivedvà kết thúc thực hiện / trả lại. Tuy nhiên, nếu người dùng đợi hơn 10 giây để cung cấp đầu vào, hãy xuất thông báo no input receivedvà kết thúc thực hiện / trả lại.

Đầu vào phải từ stdin(bàn điều khiển) hoặc tương đương, không phải là đối số chức năng hoặc chương trình, tuy nhiên đầu ra có thể là stdout, giá trị trả về của hàm hoặc bất kỳ phương thức đầu ra được chấp nhận nào khác.

Bạn có thể yêu cầu bất kỳ số lượng đầu vào, nó có thể là một ký tự, một dòng, một từ hoặc bất kỳ phương thức nào ngắn nhất trong ngôn ngữ của bạn miễn là nó chờ ít nhất một ký tự.

Bạn phải xuất ngay khi nhận được đầu vào, không phải sau 10 giây đã trôi qua.

Sau 10 giây trôi qua, bạn phải kết thúc, bạn không thể tiếp tục chờ nhập liệu sau khi no input receivedđã được in.

Bạn có thể cho rằng đầu vào không được chuyển trong khoảng thời gian giữa 10 giây và văn bản được in ra màn hình, vì đây là một cửa sổ cực kỳ nhỏ. Bạn cũng có thể cho rằng tương đương với ngôn ngữ của bạn sleeplà hoàn toàn nhất quán, hoàn hảo.

Đây là mã golf , ít byte thắng nhất!

bash, 38 byte

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

Điều này sử dụng -ttùy chọn (thời gian chờ) để bash's read, khiến nó bị lỗi và trả về mã thoát không khác nếu không có đầu vào nào được đưa ra trong số giây đã chỉ định.

Haskell, 97 89 byte

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

Nếu timeouthết thời gian, nó sẽ trả về Nothingvà Just Char( Charvì chúng tôi đang sử dụng getChar) nếu không. Giá trị trả về này được chuyển đổi thành "no "hoặc ""theo chức năng maybe "no " mempty. Nối "input received"và in.

Chỉnh sửa: @BMO đề xuất maybevà lưu một số byte.

POSIX C99, 71 63 byte

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

Ung dung:

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

Vì pollsẽ trả về 1 trong trường hợp thành công, chúng tôi nhân kết quả với 3 và dịch chuyển chuỗi cho phù hợp. Sau đó, chúng tôi sử dụng thực tế struct pollfdcó bố cục sau:

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

và đó STDIN_FILENOlà 0, POLLINlà 1để thay thế pfdvới int pfd[] = {0,1}, mà chúng tôi cuối cùng đã làm cho một litteral hợp chất (như cho phép C99).

Bản thảo, 113

Applescript không thực sự đọc từ STDIN. Hy vọng rằng a display dialogđược chấp nhận ở đây:

({"","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⊣⍞}

Đây là một hàm ẩn danh cần một đối số giả để chạy .

'no input received' chuỗi đầy đủ

↓⍨ thả càng nhiều ký tự từ phía trước số đó càng nhiều

{ hàm rõ ràng ẩn danh ( ⍵biểu thị đối số)

 ⎕RTL←10 đặt R đặc biệt T ime L bắt chước đến mười giây

 3*⍨ nâng con số đó (mười) lên sức mạnh của ba (một nghìn nghĩa là "tất cả")

 :: theo những ngoại lệ đó (tất cả),

  0 trả về 0

 ⋄ thử:

  ⍞ nhận đầu vào

  3⊣ loại bỏ điều đó và thay vào đó trả lại 3

}kết thúc chức năng (lưu ý rằng đối số ⍵không bao giờ được đề cập)

Perl , 74 67 byte

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

Phiên bản cũ

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

(Chạy qua perl -M5.10.1 ...)

Perl 6 ,  72  66 byte

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

Thử không có đầu vào
Hãy thử với đầu vào

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

Thử không có đầu vào
Hãy thử với đầu vào

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 byte

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

Đã lưu 17 byte nhờ @VisualMelon.

Phiên bản đầy đủ / được định dạng:

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 byte

-7 cảm ơn @ 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

Chờ cho đến khi một số được nhấn.

Tôi đang cố gắng tìm ra cách đánh golf trình tự {72,73,74,82,83,84,92,93,94}. Nó đang chiếm rất nhiều không gian.

NodeJS, 105 103 101 byte

-2 byte nhờ @apsillers
-2 byte bằng cách di chuyển console.log()vàoexit()

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

Chạy bằng cách lưu vào một tệp và chạy nó bằng nút hoặc chạy thẳng từ dòng lệnh bằng cách thực hiện node -e "<code>"

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

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

<input id=i

• 2 byte được lưu nhờ các apsillers chỉ ra rằng tôi thật ngu ngốc!

Thử nó

Đòi hỏi một kết thúc >trên inputđể làm việc trong một số câu liên quan.

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

<input id=i>

VB.Net - 174 byte

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

Phiên bản COBOL sắp ra mắt vào ngày mai ;-)

Đi, 149 byte

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 byte

^{2 byte được lưu bởi Blauhirn}

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

AHK có thời gian chờ tích hợp cho các hộp đầu vào.
Tôi đã cố gắng để có được thông minh và sử dụng !othay vì ErrorLevelnhưng điều đó không thành công nếu người dùng nhập một giá trị falsey.
Gần một nửa câu trả lời chỉ là tên lệnh và văn bản cố định.

Python3, 100 89 83 71 byte

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

Đầu tiên hãy thử chơi golf.

-4 cho any(), -7 để cắt, cảm ơn @ user2357112!

-6, nhận select()từ ptythay vì select.

PowerShell, 110 byte

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

Python 3, 158 byte

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)

Tôi đã thử chạy câu trả lời Python 3 của Seth nhưng trên Windows thì nó bị ném ModuleNotFoundError: No module named 'termios'và vì tôi không thể nhận xét về câu trả lời của anh ấy về nó, nên tôi quyết định đưa ra một giải pháp độc lập với nền tảng.

Đây là lần đầu tiên tôi chơi golf nên tôi chắc chắn nó có thể được cải thiện.

Tcl, 99 byte

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

SmileBASIC 3, 74 byte

"Chấp nhận đầu vào" bằng cách đợi bất kỳ nút bấm nào (nên được tính là đầu vào.)

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

Cào 2 / 3.x, 41 điểm ( Giải thích )

1: Khi nhấp vào GF

1: hỏi [] và đợi

1 + 14 ký tự: nói [nhận đầu vào]

1: stop [all v] (lưu ý: vì "all" là cài đặt mặc định của nó, tôi đã đếm khối là 1)

1 + 2 chữ số: chờ (10) giây

1 + 17 ký tự: nói [không nhận được đầu vào]

1: dừng lại [tất cả v]

> <> , 43 + 6 = 49 byte

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

Hãy thử trực tuyến!

+5 cho -t.08cờ, đặt dấu tick thành 0,08 giây và +1 cho acờ, tính khoảng trắng và bỏ qua các hướng dẫn dưới dạng dấu tick.

Chương trình kiểm tra đầu vào khoảng một lần mỗi giây và thoát khỏi vòng lặp nếu đầu vào được phát hiện. Nếu đầu vào không được nhận, nó sẽ thoát khỏi vòng lặp từ dưới lên, nối novào đầu chuỗi. Việc ban đầu /là để đảm bảo rằng lần kiểm tra cuối cùng cho đầu vào chính xác trên dấu 10 giây.

Sau đó mất khoảng 5-6 giây để tự in chuỗi.

Java 1.4+, 284 byte

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

Ung dung:

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

Vui lòng không đề xuất các cải tiến Java dành riêng cho Phiên bản, đây là câu trả lời Java chung hoạt động trong tất cả các Môi trường Java hiện đang ổn định (1.4 trở lên).

Lời nói rất quái đản ... Bắt là bắt buộc, không thể ném nó. Nhập khẩu hệ thống tắt như 5 byte ... Quá tải cũng dài dòng, do đó, nó kết thúc một mớ hỗn độn trông như chơi golf kém.

Julia 0,6 , 78 byte

Lâu hơn tôi mong đợi. Xem bình luận cho liên kết TIO "không nhận được đầu vào".

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

Hãy thử trực tuyến!

SmileBASIC, 74 73 byte

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

Có 1 ký tự đầu vào.

Và một giải pháp 39 byte có thể không hợp lệ (thực tế không chấp nhận nhập văn bản, chỉ có một OKnút mà bạn có thể nhấn)

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