Я часто забуваю, що хотів сказати, коли вчитель закликає мене говорити. Чи можете ви зробити мені інструмент для вирішення цього питання?

Вимоги:

• Програма повинна циклічити наступним чином:
  • По-перше, взяти введення
  • Якщо вхід порожній, надрукуйте останнє збережене запитання.
  • В іншому випадку збережіть дані як запитання.

Примітки:

• Вхід ніколи не буде порожнім, якщо немає запитань.

Уточнення: Програмі не потрібно зберігати кілька запитань. ^{_{Спочатку я хотів, щоб він зберігав кілька, але я змінив це, коли багато людей неправильно зрозуміли питання.}}

Пам'ятайте, це код-гольф , тому виграє код з найменшою кількістю байтів.

Perl, 13 17 14 +1 = 15 байт

/./?$;=$_:say$

+1 для -nпрапора (збережено 4 байти завдяки @Dada)

Поки вхід не дорівнює поверненню каретки, він зберігає вхід $;. Якщо вона дорівнює поверненню каретки, вона друкує те, що вже є $;.

Це передбачає, що всі матеріали можна охарактеризувати як питання, навіть якщо граматично вони не є такими.

05AB1E, 12 11 10 байт

Дякую @daHugLenny та @Adnan за 1 байт!
Дякую @Emigna за 1 байт!

[IDõQiX,ëU

Хаскелл, 49 байт

g s=getLine>>=(#s)
""#s=putStr s>>g s
l#s=g l
g""

Як це працює: почніть з g "". Параметр sфункції g- це питання в магазині. gчитає наступний рядок із stdin та передає його (а також s) до #. Якщо рядок порожній, #друкує магазин і дзвонить gзнову. Якщо рядок не порожній, gїї називають новим магазином.

JavaScript, 36 34 31 байт

for(;;b?a=b:alert(a))b=prompt()

Нескінченний цикл постійно запитує введення та зберігає його b. Якщо вхід не порожній, він зберігається a, інакше aдрукується значення.

Збережено 2 байти завдяки @ETHproductions

Математика, 44 байти

If[(b=InputString[])=="",Print@a,a=b]~Do~∞

Повна програма. Символ Unicode - U + 221E INFINITY for \[Infinity].

Python 3, 31 байт

while 1: I=input()or I;print(I)

Спробуй!

-1 байт завдяки Flp.Tkc

ретикулярна, 12 байт

id""E[$dp]~*

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

Пояснення

id""E[$dp]~*
i             take a line of input     [input]
 d""E         push equality with ""    [input, input == ""]
     [$dp]    push that func           [input, input == "", [$p]]
         ~*   execute it iff equal
              on equal:
      $       drop empty input
       dp     duplicate then print the TOS
              this wraps around to the beginning, taking another line of input

Пайк, 6 байт

z=z~zr

Спробуйте тут!

     r - while 1:
z      -   input() or z.contents
 =z    -  z.contents = ^
   ~z  -  z.contents

Python3 - 49 байт

s=""
while 1:
 b=input()
 if b:s=b
 else:print(s)

Python 3, 34 байти

s=""
while[print(s)]:s=input()or s

Python 3, 60 байт

q=[]
while 1:
 s=input()
 if''<s:q+=[s]
 else:print(q.pop())

CMD, 37 байт

На жаль set, не приймає порожній вхід :(

set/p a=
if %a%.=. echo b
set b=%a%
c

у назвах файлів c.cmdабо

set/p a=
if %a%.=. echo b
set b=%a%
%0

у будь-якому файлі. Робота (використовувати -як порожнє):

set/p a=
if %a%.=-. echo b
set b=%a%
c

APLX, 19 байт

a←⍞⋄→(0=⍴a)/1⋄a⋄→1

Пояснення:

⍝ Note: the ⋄ symbols are statement separators, so I've replaced them here with newlines

a←⍞           ⍝ get an input string (⍞) and store it in variable a
→(0=⍴a)/1     ⍝ if the length of a (⍴a) is 0, goto (→) the start of this program (1)
a             ⍝ else, print a
→1            ⍝ goto the start of the program (1)

C, 73 63 байт

g(){char a[99],x;for(;;){gets(a);if(*a)x=*a;else*a=x,puts(a);}}

Для обробки логіки використовується лише 1 буфер і одна таблиця. Якщо користувач нічого не вводить, замінюється лише перша таблиця в буфері '\0', в такому випадку вона відновлюється xта друкується, інакше скопіюйте першу букву xдля подальшого використання.

Попередній код:

main(){char a[99],b[99];for(;;){gets(a);if(*a)strcpy(b,a);else puts(b);}}

Java 7, 189 187 178 байт ..

class M{public static void main(String[]a){String s="",x;do{x=new java.util.Scanner(System.in).nextLine();if(x.isEmpty())Syste‌​m.out.println(s);els‌​e s=x;}while(1>0);}}

-9 байт, використовуючи new java.util.Scannerбезпосередньо, завдяки @cliffroot .

Напевно, я вперше застосував do-whileзавдання в кодегольфі.

Якщо функції дозволені замість програм, це 135 байт (все-таки в багато разів більше, ніж більшість інших відповідей ..)

sed, 10 байт

/./{x;d};g

Пояснення:

      (implicit at start of program) read input, overwriting old input
/./{  If the input is nonempty
  x;  swap the input with the hold space
  d   then restart, without any implicit printing of input
};    end if statement
g     Append the hold space to the [empty] input
      (implicit at end of program) print the input, then restart

Приємно бачити екзотеричну (тобто "не езотеричну") мову, пов'язану з деякими мовами для гольфу!