Tugas Anda hari ini adalah menerapkan batas waktu untuk mendapatkan input, tugas yang menurut saya agak menyebalkan untuk dicapai dalam kebanyakan bahasa.

Anda akan membuat fungsi program yang meminta input dari pengguna. Segera setelah input persediaan pengguna, cetak pesan input receiveddan akhiri eksekusi / kembali. Namun, jika pengguna menunggu lebih dari 10 detik untuk memberikan input, output pesan no input receiveddan akhiri eksekusi / kembali.

Input harus dari stdin(konsol) atau yang setara, bukan argumen fungsi atau program, namun output dapat berupa stdoutnilai pengembalian fungsi Anda, atau metode output lain yang diterima.

Anda dapat meminta input dalam jumlah berapa pun, dapat berupa satu karakter, satu baris, satu kata, atau metode apa pun yang terpendek dalam bahasa Anda selama menunggu setidaknya satu karakter.

Anda harus mengeluarkan segera setelah input diterima, tidak setelah 10 detik berlalu.

Setelah 10 detik berlalu, Anda harus mengakhiri, Anda tidak dapat terus menunggu input setelah no input receiveddicetak.

Anda dapat berasumsi bahwa input tidak lulus dalam waktu antara 10 detik berlalu dan teks dicetak ke layar, karena ini adalah jendela yang sangat kecil. Anda juga dapat mengasumsikan bahwa bahasa Anda setara dengan sleepkonsisten, benar-benar sempurna.

Ini adalah kode-golf , byte terkecil menang!

bash, 38 byte

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

Ini menggunakan opsi -t(batas waktu) untuk bash read, yang menyebabkannya gagal dan mengembalikan kode keluar yang tidak nol jika tidak ada input yang diberikan dalam jumlah detik yang ditentukan.

Haskell, 97 89 byte

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

Jika timeoutwaktu habis, ia kembali Nothingdan Just Char( Char, karena kami menggunakan getChar) sebaliknya. Nilai pengembalian ini dikonversi ke "no "atau ""oleh fungsi maybe "no " mempty. Tambah "input received"dan cetak.

Sunting: @BMO menyarankan maybedan menyimpan beberapa byte.

POSIX C99, 71 63 byte

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

Tidak Disatukan:

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

Karena pollakan mengembalikan 1 jika berhasil, kami mengalikan hasilnya dengan 3 dan menggeser string yang sesuai. Kemudian, kami menggunakan fakta yang struct pollfdmemiliki tata letak berikut:

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

dan itu STDIN_FILENOadalah 0, POLLINadalah 1untuk menggantikan pfddengan int pfd[] = {0,1}, yang akhirnya kami membuat senyawa litteral (sebagaimana diizinkan oleh C99).

Applescript, 113

Applescript tidak benar-benar membaca dari STDIN. Semoga a display dialogditerima di sini:

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

Ini adalah fungsi diam anonim yang membutuhkan argumen dummy untuk dijalankan .

'no input received' string penuh

↓⍨ drop sebanyak karakter dari depan sebagai jumlah yang dikembalikan oleh

{ fungsi eksplisit anonim ( ⍵menunjukkan argumen)

 ⎕RTL←10 atur R esponse T ime L imit ke sepuluh detik

 3*⍨ naikkan angka itu (sepuluh) menjadi tiga (seribu berarti "semua")

 :: atas pengecualian tersebut (semua),

  0 kembali 0

 ⋄ mencoba:

  ⍞ dapatkan input

  3⊣ buang itu dan sebaliknya kembalikan 3

}akhir fungsi (perhatikan bahwa argumen ⍵tidak pernah disebutkan)

Perl , 74 67 byte

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

Versi lama

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

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

Perl 6 ,  72  66 byte

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

Cobalah tanpa input.
Coba dengan input

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

Cobalah tanpa input.
Coba dengan 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 byte

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

Disimpan 17 byte berkat @VisualMelon.

Versi Lengkap / Terformat:

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 terima kasih kepada @ 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

Tunggu hingga nomor ditekan.

Saya mencoba mencari cara untuk bermain golf urutan {72,73,74,82,83,84,92,93,94}. Ini memakan banyak ruang.

NodeJS, 105 103 101 byte

-2 bytes berkat @apsillers
-2 bytes dengan pindah console.log()keexit()

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

Jalankan dengan menyimpan ke file dan menjalankannya dengan node atau menjalankannya langsung dari baris perintah dengan melakukan 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 disimpan berkat aplikasi yang menunjukkan bahwa saya bodoh!

Cobalah

Memerlukan penutupan >pada inputagar dapat bekerja di Cuplikan.

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

Versi COBOL akan datang besok ;-)

Pergi, 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 disimpan oleh Blauhirn}

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

AHK memiliki batas waktu bawaan untuk kotak input.
Saya mencoba untuk mendapatkan pintar dan menggunakan !obukannya ErrorLeveltetapi gagal jika input pengguna nilai falsey.
Hampir setengah dari jawabannya hanya nama perintah dan teks tetap.

Python3, 100 89 83 71 byte

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

Pertama kali mencoba bermain golf.

-4 untuk any(), -7 untuk memotong, terima kasih @ user2357112!

-6, dapatkan select()dari ptybukan 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)

Saya mencoba menjalankan jawaban Python 3 Seth tetapi pada Windows itu melempar ModuleNotFoundError: No module named 'termios', dan karena saya tidak dapat mengomentari jawabannya tentang hal itu, saya memutuskan untuk datang dengan solusi yang seharusnya menjadi platform independen.

Ini pertama kalinya saya bermain golf, jadi saya yakin ini bisa ditingkatkan.

Tcl, 99 byte

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

SmileBASIC 3, 74 byte

"Terima input" dengan menunggu tombol apa saja ditekan (yang seharusnya dianggap sebagai input.)

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

Gores 2 / 3.x, 41 poin ( Penjelasan )

1: Ketika GF diklik

1: tanyakan [] dan tunggu

1 + 14 karakter: katakan [input diterima]

1: berhenti [semua v] (catatan: karena "semua" adalah pengaturan standarnya, saya menghitung blok sebagai 1)

1 + 2 digit: tunggu (10) detik

1 + 17 karakter: katakan [tidak ada input yang diterima]

1: berhenti [semua v]

> <> , 43 + 6 = 49 byte

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

Cobalah online!

+5 untuk -t.08bendera, yang menetapkan kutu ke 0,08 detik, dan +1 untuk abendera, yang menghitung spasi dan melompati instruksi sebagai kutu.

Program memeriksa input sekitar sekali setiap detik, dan keluar dari loop jika input terdeteksi. Jika input tidak diterima, maka keluar loop dari bawah, menambahkan noke awal string. Yang pertama /adalah untuk memastikan bahwa pemeriksaan terakhir untuk input tepat pada tanda 10 detik.

Kemudian dibutuhkan sekitar 5-6 detik untuk mencetak string itu sendiri.

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

Tidak Disatukan:

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

Tolong jangan menyarankan peningkatan Java khusus-Versi, ini adalah jawaban Java umum yang bekerja di semua Lingkungan Java yang saat ini stabil (1.4 dan lebih tinggi).

Sangat bertele-tele ... Menangkap diperlukan, tidak bisa membuangnya. Impor sistem berkurang seperti 5 byte ... Kelebihan beban juga bertele-tele, sehingga berakhir dengan kekacauan yang tampak buruk pada golf.

Julia 0,6 , 78 byte

Lebih lama dari yang saya harapkan. Lihat komentar untuk tautan TIO "tidak ada masukan yang diterima".

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

Cobalah online!

SmileBASIC, 74 73 byte

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

Membawa 1 karakter input.

Dan solusi 39 byte yang mungkin tidak valid (sebenarnya tidak menerima input teks, hanya memiliki OKtombol yang dapat Anda tekan)

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