Під час виконання виконайте запит на рядок введення, поки користувач не введе щось (крім порожнього нового рядка), тобто не просто натисне 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кнопку.
Нічого не відбувається.
Користувач вставляє "привіт світ" у текстове поле та натискає 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), моя програма може бути просто функцією.

Це специфічно для системи; він працює лише в системах, де символ кінця рядка - це один новий рядок. Якщо в кінці-лінії символ замість повернення каретки, замініть 10з 13. У Windows це не працює, як і в кінці строки для Windows \r\n.

Це використовує той факт, що я можу читати безпосередньо з System.in.

HTML5, 33 22 байти

<form><input required>

<form><input required>

Пояснення

requiredАтрибут на <input>змушує браузер , щоб повідомити користувачеві «це поле потрібно» -sort-оф-повідомлень, якщо вони не входять у вартість. Однак, коли вони вводять значення, значення надсилається до URL-адреси actionатрибута <form>(який у нашому випадку є самим поточним файлом, оскільки ми жодне значення не вказали прямо).

Це було протестовано на останній версії Google Chrome (версія 55.0). Може працювати в інших браузерах та версіях.

Желе , 3 байти

ɠṆ¿

Боюсь, не дуже дивитись на TIO.

Спробуйте в Інтернеті!

Як це працює

Це niladic програма, це означає, що вона не бере ніяких вхідних аргументів. Неявний аргумент і значення повернення в цьому випадку є 0 .

¿(в той час) - швидкий, який вискакує два посилання зі стека посилань: умова ( Ṇ) та тіло.

Ṇє монадичним атомом: плоский логічний НЕ. Якщо попереднє повернене значення є хибним (тут 0 або порожній рядок), воно повертає 1 і тіло викликається.

ɠ- атом ніладика; він читає необроблений рядок зі STDIN і повертає результат.

Як тільки ɠзчитується не порожній рядок, Ṇповертається 0 і ми вириваємося з циклу.

Pyth , 3 байти

W!w

Спробуйте в Інтернеті!

Перекладено на Python:

while Pnot(input()):
 pass

мозковий ебать , 26 байт

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

Спробуйте в Інтернеті!

Perl 5, 8 + 1 (-p або -n прапор) байтів

/./&&die

Здійснює введення від stdin і вмирає, як тільки регулярний вираз відповідає будь-якому, крім нового рядка.

C, 52 байти , 33 байти , 29 байт

-19 байт завдяки Джастіну

-4 байти завдяки Крістофу

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

10 дорівнює "\ n" - Якщо це не очевидно.

Bash, 51 байт (39 без "#! / Bin / bash")

Я вперше беру участь у PPCG, тому не будьте грубими; D

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

Java , 128 126 байт

2 байти завдяки Kevin Cruijssen.

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

Спробуйте в Інтернеті!

C # (.NET Core) , 66 байт

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

Спробуйте в Інтернеті!

-6 байт завдяки рознагулу.

QBasic 4,5, 15 байт

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

Запрошує введення, а потім перевіряє, чи було дано таке. Якщо ні, RUNперезавантажте програму.

Рубін, 13 байт

gets until/./

Я хотів би getsвзяти аргумент Regexp.

R, 27 24 23 22 байт

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

Візьміть введення з stdin і повторіть, поки вхід має довжину 0. Відріжте кілька байтів завдяки Ярко Дуббелдам і МікіТ. Замінено {}з , tщоб зберегти інші байти.

PHP, 18 байт

while(!readline())

AWK , 8 11 байт

NF{exit}

Зачекайте на введення. Якщо кількість полів для введення більше 0, вийдіть.

Редагувати:

Я щойно зрозумів, що це не працює лише для введення символів, що містять пробіли. IFS потрібно встановити на порожній рядок, використовуючи -F ""параметр командного рядка. Тому +3 байт.

Спробуйте в Інтернеті!

SpecBAS - 34 байти

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

Просто петлі, поки не буде введено порожню рядок.

Математика, 26 20 байт

For[,Input[]==Null,]

Haskell, 19 17 байт

f=do""<-getLine;f

Визначає функцію, fяка, якщо вона читає порожній рядок, дзвонить собі ще раз. Під час читання непустого рядка виникає виняток і припиняється рекурсія.

Редагувати: @Laikoni замінив параметр на відповідність шаблону та зберег 2 байти. Спасибі!

Ацето , 9 5 4 байти

read значення, заперечуйте його ( !; імпліцитне введення в булеве значення) та дзеркально горизонтально, якщо значення truthy ( |).

!
r|

Java, 66 64 60 байт

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

Моя перша відповідь на Java, дуже хотіла б поради!

Braingolf , 8 байт [неконкуренто]

1[{?:+|]

Не змагається, тому що {, який читає вхід зі STDIN, було додано до braingolf після дати публікації цього виклику.

Пояснення:

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

Вугілля деревне , 4 байти

Ｗ¬Ｓω

Пояснення

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

05AB1E , 5 байт

[IõÊ#

Пояснення:

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

Спробуйте в Інтернеті!

PowerShell, 20 байт

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

запускає цикл,

read-host запити на введення

якщо хост читання не повертає нічого, це не відповідає false, тому ми інвертуємо це !(...)і використовуємо це як перевірку кінця циклу.

набагато коротше, ніж будь-яке do{$a=read-host}while($a-eq"")типове рішення, що включає змінні.

Свіфт, 22 байти

while readLine()==""{}

CJam , 5 байт

{l!}g

Спробуйте в Інтернеті! (TIO насправді не показує належної поведінки)

Пояснення

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