aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2026-02-01 16:33:20 -08:00
parent 5150844a7d
commit 4bb20c9b71
7735 changed files with 38060 additions and 199180 deletions
Download patch file Download diff file Expand all files Collapse all files

20
Task/Keyboard-input-Flush-the-keyboard-buffer/Ada/keyboard-input-flush-the-keyboard-buffer.ada
View file

@ -1,20 +0,0 @@
with Ada.Text_IO;
procedure Flushtest is
use Text_IO;
begin
Put_Line ("Type anything for 2 s");
delay 2.0;
Flush_Input:
declare
Ch : Character;
More : Boolean;
begin
loop
Get_Immediate (Ch, More);
exit when not More;
end loop;
end Flush_Input;
New_Line;
Put_Line ("Okay, thanks. Here is some input from you:");
Put_Line (Get_Line);
end Flushtest;

1
Task/Keyboard-input-Flush-the-keyboard-buffer/Emacs-Lisp/keyboard-input-flush-the-keyboard-buffer.l
View file

@ -1 +0,0 @@
(discard-input)

2
Task/Keyboard-input-Flush-the-keyboard-buffer/Euphoria/keyboard-input-flush-the-keyboard-buffer.ex
View file

@ -1,2 +0,0 @@
while get_key()!=-1 do
end while

3
Task/Keyboard-input-Flush-the-keyboard-buffer/PowerShell/keyboard-input-flush-the-keyboard-buffer-1.psh
View file

@ -1,3 +0,0 @@
while ($Host.UI.RawUI.KeyAvailable) {
$Host.UI.RawUI.ReadKey() | Out-Null
}

1
Task/Keyboard-input-Flush-the-keyboard-buffer/PowerShell/keyboard-input-flush-the-keyboard-buffer-2.psh
View file

@ -1 +0,0 @@
$Host.UI.RawUI.FlushInputBuffer()