ที่รันไทม์ให้กระตุ้นสำหรับสายของใส่จนสิ่งที่ปัจจัยการผลิตของผู้ใช้ (นอกเหนือจากการขึ้นบรรทัดใหม่ที่ว่างเปล่า) คือไม่เพียง แต่กดหรือEnter OKผลลัพธ์หรือผลลัพธ์ไม่จำเป็นหรือไม่ได้รับอนุญาต

รหัสหลอก 1

myform = new form("GUI")
myform.mytxt = new editfield("")
myform.ok = new button("OK")
repeat
  waitfor(myform.ok,"click")
until myform.mytxt.content <> ""

รหัสหลอก 2

LET TEXT = ""
WHILE TEXT = "" DO
  TEXT = PROMPT("")
ENDWHILE

ตัวอย่างที่ 1

โปรแกรมทำงานและดึงแบบฟอร์มขึ้นทันทีด้วยฟิลด์ข้อความเดียวและOKปุ่ม
ผู้ใช้คลิกOKปุ่ม
ไม่มีอะไรเกิดขึ้น.
ผู้ใช้วาง "hello world" ลงในช่องข้อความและคลิกOKปุ่ม
โปรแกรมสิ้นสุดลง

ตัวอย่างที่ 2

ฟังก์ชั่นถูกเรียกใช้และแสดงบรรทัดว่างทันทีและเคอร์เซอร์กะพริบ ผู้ใช้กด
เคอร์เซอร์เลื่อนลงหนึ่งบรรทัด ผู้ใช้กด เคอร์เซอร์เลื่อนลงหนึ่งบรรทัด ผู้ใช้กด ฟังก์ชันส่งคืนEnter

Enter

PPCGEnter

TI-BASIC, 2 ไบต์

:Prompt X

TI-BASIC ทำสิ่งนี้โดยอัตโนมัติ เมื่อป้อนข้อมูลแล้วจะปิด

นี่คือ GIF:

ชมการนับจำนวนที่enterสำคัญในประวัติการกดปุ่ม ที่สร้างขึ้นด้วยTI-SmartView CEและezgif.com

Python 3 , 18 ไบต์

while''==input():0

ลองออนไลน์!

sed, 4

/./q

รอให้บรรทัดอินพุตที่มี 1 อักขระขึ้นไปจากนั้นออก

ลองมันออนไลน์ แต่มันจะทำงานได้ดีขึ้นบนกระสุนจริง:

sed '/./q'

JavaScript, 37 22 17 ไบต์

while(!prompt());

while(!prompt());

คำอธิบาย

whileคำหลักเริ่มwhileห่วง ในเงื่อนไขของลูป!prompt()ขอให้ป้อนข้อมูลและตรวจสอบว่าได้รับหรือไม่ หากไม่ได้รับเนื้อความของลูปจะถูกดำเนินการซึ่งในกรณีของเรานั้นว่างเปล่าล่ามจะกลับไปที่เงื่อนไขลูป กระบวนการเดียวกันเกิดขึ้นซ้ำแล้วซ้ำอีกจนกว่าผู้ใช้จะให้อินพุต

Java, 55 ไบต์

void f()throws Exception{while(System.in.read()==10);}}

ถ้าฉันจำได้อย่างถูกต้อง (มันผ่านมาซักพักแล้วที่ PPCG) โปรแกรมของฉันก็สามารถใช้งานได้

This is system specific; it only works on systems where the end-of-line character is a single newline. If the end-of-line character is instead a carriage return, replace the 10 with 13. On Windows, this doesn't work, as end-of-line on windows is \r\n.

This makes use of the fact that I can read directly from System.in.

HTML5, 33 22 ไบต์

<form><input required>

<form><input required>

คำอธิบาย

requiredแอตทริบิวต์ใน<input>สาเหตุของเบราว์เซอร์ที่จะแจ้งให้ผู้ใช้ "ข้อมูลนี้จะต้อง" จัดเรียงของข้อความถ้าพวกเขาไม่ป้อนค่า อย่างไรก็ตามเมื่อพวกเขาป้อนค่าค่าจะถูกส่งไปยัง URL ของactionแอตทริบิวต์ของ<form>(ซึ่งในกรณีของเราคือไฟล์ปัจจุบันเองเนื่องจากเราไม่ได้ระบุค่าใด ๆ ไว้อย่างชัดเจน)

สิ่งนี้ได้รับการทดสอบกับ Google Chrome รุ่นล่าสุด (รุ่น 55.0) อาจทำงานในเบราว์เซอร์และรุ่นอื่น ๆ

Jelly, 3 bytes

ɠṆ¿

Not much to look at on TIO, I'm afraid.

Try it online!

How it works

This is a niladic program, meaning that it takes no input arguments. The implicit argument and return value are both 0 in this case.

¿ (while) is a quick that pops two links from the link stack: a condition (Ṇ) and a body.

Ṇ is a monadic atom: flat logical NOT. If the previous return value is falsy (here, 0 or an empty string), it returns 1 and the body is called.

ɠ is a niladic atom; it reads a raw line from STDIN and returns the result.

Once ɠ reads a non-empty line, Ṇ returns 0 and we break out of the loop.

Pyth, 3 bytes

W!w

Try it online!

Translated to Python:

while Pnot(input()):
 pass

brainfuck, 26 bytes

+[>,----------[[-]<[-]>]<]

Try it online!

Perl 5, 8+1 (-p or -n flag) bytes

/./&&die

Takes input from stdin and dies as soon as the regex matches anything except a newline.

C, 52 bytes, 33 bytes, 29 bytes

-19 bytes thanks to Justin

-4 bytes thanks to Christoph

main(){while(getchar()==10);}

10 is equal to '\n' - In case this isn't obvious.

Bash, 51 bytes (39 without "#!/bin/bash")

It's my first time participating in PPCG, so dont be to rude ;D

#!/bin/bash
read a
while [ -z "$a" ]
do
read a
done

Java, 128 126 bytes

2 bytes thanks to Kevin Cruijssen.

import java.util.*;class a{public static void main(String[]a){for(Scanner s=new Scanner(System.in);s.nextLine().isEmpty(););}}

Try it online!

C# (.NET Core), 66 bytes

class C{static void Main(){for(;System.Console.ReadLine()!="";);}}

Try it online!

-6 bytes thanks to raznagul.

QBasic 4.5, 15 bytes

INPUT a$:IF a$=""THEN RUN

Asks for input, then checks if any was given. If not, RUN restarts the program.

Ruby, 13 bytes

gets until/./

I wish gets took a Regexp argument.

R, 27 24 23 22 bytes

while(!sum(scan()^0))t

Takes input from stdin, and repeat as long as input is of length 0. Cut off some bytes due to Jarko Dubbeldam and MickyT. Replaced the {} with t to save another byte.

PHP, 18 bytes

while(!readline())

AWK, 8 11 bytes

NF{exit}

Wait for input. If the number of fields in input is more than 0, exit.

EDIT:

I've just realized that this doesn't work for input containing whitespace characters only. IFS needs to be set to empty string using -F "" command line option. Therefore +3 bytes.

Try it online!

SpecBAS - 34 bytes

1 DO : INPUT a$: LOOP UNTIL a$<>""

Just loops until non-empty string is entered.

Mathematica, 26 20 bytes

For[,Input[]==Null,]

Haskell, 19 17 bytes

f=do""<-getLine;f

Defines a function f that if it reads the empty line calls itself again. When reading a non-empty line an exception is raised and the recursion is stopped.

Edit: @Laikoni replaced the parameter with a pattern match and saved 2 bytes. Thanks!

Aceto, 9 5 4 bytes

read a value, negate it (!; implicitly casting to a boolean), and mirror horizontally if the value is truthy (|).

!
r|

Java, 66 64 60 bytes

int a(){return!System.console().readLine().isEmpty()?0:a();}

My first Java answer, would love some tips!

Braingolf, 8 bytes [non-competing]

1[{?:+|]

Non competing because {, which reads input from STDIN, was added to braingolf after this challenge's post date.

Explanation:

1         Pushes 1 to the stack
 [        Begins while loop
  {       Reads from STDIN, returns -1 if no input given
   ?      Checks if last item in stack is > 0
    :     Else
     +    Adds the last 2 items together, however there is only 1 item, so add it to itself
      |   Endif
       ]  End While, decrement first item in stack, or exit if first item is 0

Charcoal, 4 bytes

Ｗ¬Ｓω

Explanation

Ｗ      While
  ¬Ｓ   Logical not of string input
     ω  Print ""

05AB1E, 5 bytes

[IõÊ#

Explanation:

[     Start infinite loop
 I    One line of input
   Ê  Not equal to
  õ   Empty string
    # Break if true

Try it online!

PowerShell, 20 Bytes

for(;!(read-host)){}

runs a for loop,

read-host prompts for input

if read-host returns nothing it evals to false, so we invert that !(...) and use that as the loop end check.

much shorter than any do{$a=read-host}while($a-eq"") type solution involving variables.

Swift, 22 bytes

while readLine()==""{}

CJam, 5 bytes

{l!}g

Try it online! (TIO doesn't really show the proper behaviour)

Explanation

{      e# Do:
 l     e#  Read next line of input
  !    e#  Boolean negate (empty strings are falsy)
   }g  e# Pop the top of stack, if truthy, repeat.