Trong thời gian chạy, tiếp tục nhắc về một dòng đầu vào cho đến khi người dùng nhập một cái gì đó (không phải là một dòng mới trống), tức là không chỉ nhấn Enterhoặc OK. Đầu ra hoặc kết quả là không bắt buộc cũng không bị cấm.

Mã giả 1

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

Mã giả 2

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

ví dụ 1

Chương trình chạy và ngay lập tức bật lên một biểu mẫu với một trường văn bản và một OKnút.
Người dùng nhấp vào OKnút.
Chẳng có gì xảy ra.
Người dùng dán "hello world" vào trường văn bản và nhấp vào OKnút.
Chương trình chấm dứt.

Ví dụ 2

Chức năng được gọi và ngay lập tức hiển thị một dòng trống và một con trỏ nhấp nháy.
Người dùng nhấn Enter.
Con trỏ di chuyển xuống một dòng.
Người dùng nhấn Enter.
Con trỏ di chuyển xuống một dòng.
Người dùng nhấn PPCGEnter
Hàm trả về.

TI-BASIC, 2 byte

:Prompt X

TI-BASIC thực hiện điều này tự động. Một khi đầu vào được đưa ra, nó sẽ thoát.

Đây là một GIF:

Xem số đếm trên enterphím trong Lịch sử báo chí chính. Được tạo bằng TI-SmartView CE và ezgif.com .

Python 3 , 18 byte

while''==input():0

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

sed, 4

/./q

Chờ một dòng đầu vào có 1 hoặc nhiều ký tự, sau đó thoát.

Hãy thử trực tuyến . Nhưng nó hoạt động tốt hơn trên một vỏ sống:

sed '/./q'

JavaScript, 37 22 17 byte

while(!prompt());

while(!prompt());

Giải trình

Các whiletừ khóa bắt đầu whilevòng lặp. Trong điều kiện của vòng lặp, !prompt()yêu cầu đầu vào và kiểm tra xem nó có được đưa ra hay không. Nếu nó không được đưa ra, phần thân của vòng lặp được thực thi, trong trường hợp của chúng ta là rỗng, thì trình thông dịch sẽ quay trở lại điều kiện vòng lặp. Quá trình tương tự xảy ra lặp đi lặp lại cho đến khi người dùng đưa ra đầu vào.

Java, 55 byte

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

Nếu tôi nhớ chính xác (đã được một thời gian kể từ khi tôi hoạt động trên PPCG), chương trình của tôi chỉ có thể là một chức năng.

Đây là hệ thống cụ thể; nó chỉ hoạt động trên các hệ thống mà ký tự cuối dòng là một dòng mới. Nếu ký tự cuối dòng thay vì trả về xe ngựa, hãy thay thế 10bằng 13. Trên Windows, điều này không hoạt động, vì dòng cuối cùng trên windows là \r\n.

Điều này làm cho việc sử dụng thực tế mà tôi có thể đọc trực tiếp từ System.in.

HTML5, 33 22 byte

<form><input required>

<form><input required>

Giải trình

Các requiredthuộc tính trên <input>làm cho trình duyệt để thông báo cho người dùng "lĩnh vực này là cần thiết" -Phân loại file-of-tin nhắn, nếu họ không nhập một giá trị. Tuy nhiên, khi họ nhập một giá trị, giá trị được gửi đến URL của actionthuộc tính của<form> (trong trường hợp của chúng tôi là chính tệp hiện tại, vì chúng tôi chưa chỉ định rõ ràng bất kỳ giá trị nào).

Điều này đã được thử nghiệm trên phiên bản Google Chrome mới nhất (phiên bản 55.0). Có thể làm việc trong các trình duyệt và phiên bản khác.

Thạch , 3 byte

ɠṆ¿

Không có nhiều thứ để xem trên TIO, tôi sợ.

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

Làm thế nào nó hoạt động

Đây là một chương trình niladic, có nghĩa là nó không có đối số đầu vào. Đối số ngầm và giá trị trả về đều bằng 0 trong trường hợp này.

¿(while) là một cách nhanh chóng xuất hiện hai liên kết từ ngăn xếp liên kết: một điều kiện ( Ṇ) và một cơ thể.

Ṇlà một nguyên tử đơn nguyên: logic phẳng KHÔNG. Nếu giá trị trả về trước đó là sai (ở đây, 0 hoặc một chuỗi rỗng), nó trả về 1 và phần thân được gọi.

ɠlà một nguyên tử niladic; nó đọc một dòng thô từ STDIN và trả về kết quả.

Khi ɠđọc một dòng không trống, Ṇtrả về 0 và chúng ta thoát ra khỏi vòng lặp.

Bình thường , 3 byte

W!w

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

Đã dịch sang Python:

while Pnot(input()):
 pass

Brainfuck , 26 byte

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

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

Perl 5, 8 + 1 (cờ -p hoặc -n) byte

/./&&die

Mất đầu vào từ stdin và chết ngay khi regex khớp với bất cứ thứ gì ngoại trừ một dòng mới.

C, 52 byte , 33 byte , 29 byte

-19 byte nhờ Justin

-4 byte nhờ Christoph

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

10 bằng với '\ n' - Trong trường hợp điều này không rõ ràng.

Bash, 51 byte (39 không có "#! / Bin / bash")

Đây là lần đầu tiên tôi tham gia PPCG, vì vậy đừng thô lỗ; D

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

Java , 128 126 byte

2 byte nhờ Kevin Cruijssen.

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

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

C # (.NET Core) , 66 byte

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

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

-6 byte nhờ raznagul.

QBasic 4,5, 15 byte

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

Yêu cầu đầu vào, sau đó kiểm tra nếu có. Nếu không, RUNkhởi động lại chương trình.

Ruby, 13 byte

gets until/./

Tôi muốn getscó một đối số Regapi.

R, 27 24 23 22 byte

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

Lấy đầu vào từ stdin và lặp lại miễn là đầu vào có độ dài 0. Cắt bỏ một số byte do Jarko Dubbeldam và MickyT. Thay thế {}bằng tđể lưu một byte khác.

PHP, 18 byte

while(!readline())

AWK , 8 11 byte

NF{exit}

Đợi đầu vào. Nếu số lượng trường trong đầu vào nhiều hơn 0, hãy thoát.

CHỈNH SỬA:

Tôi mới nhận ra rằng điều này không hoạt động đối với đầu vào chỉ chứa các ký tự khoảng trắng. IFS cần được đặt thành chuỗi rỗng bằng -F ""tùy chọn dòng lệnh. Do đó +3 byte.

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

SpecBAS - 34 byte

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

Chỉ cần vòng lặp cho đến khi chuỗi không trống được nhập vào.

Toán học, 26 20 byte

For[,Input[]==Null,]

Haskell, 19 17 byte

f=do""<-getLine;f

Xác định hàm f mà nếu nó đọc dòng trống sẽ gọi lại chính nó. Khi đọc một dòng không trống, một ngoại lệ được đưa ra và đệ quy được dừng lại.

Chỉnh sửa: @Laikoni thay thế tham số bằng khớp mẫu và lưu 2 byte. Cảm ơn!

Aceto , 9 5 4 byte

read một giá trị, phủ nhận nó ( !; ngầm định chuyển sang boolean) và phản chiếu theo chiều ngang nếu giá trị là trung thực ( |).

!
r|

Java, 66 64 60 byte

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

Câu trả lời Java đầu tiên của tôi, sẽ thích một số mẹo!

Braingolf , 8 byte [không cạnh tranh]

1[{?:+|]

Không cạnh tranh vì { , đọc đầu vào từ STDIN, đã được thêm vào braingolf sau ngày đăng bài của thử thách này.

Giải trình:

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

Than , 4 byte

Ｗ¬Ｓω

Giải trình

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

05AB1E , 5 byte

[IõÊ#

Giải trình:

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

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

PowerShell, 20 byte

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

chạy một vòng lặp,

read-host lời nhắc cho đầu vào

nếu máy chủ đọc trả về không có gì nó sai thành sai, vì vậy chúng tôi đảo ngược điều đó !(...) và sử dụng nó làm kiểm tra kết thúc vòng lặp.

ngắn hơn nhiều so với bất kỳ do{$a=read-host}while($a-eq"")giải pháp loại liên quan đến các biến.

Swift, 22 byte

while readLine()==""{}

CJam , 5 byte

{l!}g

Hãy thử trực tuyến! (TIO không thực sự thể hiện hành vi đúng đắn)

Giải trình

{      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.