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

11
Task/Copy-stdin-to-stdout/Ada/copy-stdin-to-stdout.ada
View file

@ -1,11 +0,0 @@
with Ada.Text_IO;
procedure Copy_Stdin_To_Stdout is
use Ada.Text_IO;
C : Character;
begin
while not End_Of_File loop
Get_Immediate (C);
Put (C);
end loop;
end Copy_Stdin_To_Stdout;

14
Task/Copy-stdin-to-stdout/Phix/copy-stdin-to-stdout.phix
View file

@ -1,8 +1,6 @@
(notonline)-->
<span style="color: #008080;">without</span> <span style="color: #008080;">js</span>
<span style="color: #008080;">while</span> <span style="color: #004600;">true</span> <span style="color: #008080;">do</span>
<span style="color: #004080;">integer</span> <span style="color: #000000;">ch</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">wait_key</span><span style="color: #0000FF;">()</span>
<span style="color: #008080;">if</span> <span style="color: #000000;">ch</span><span style="color: #0000FF;">=</span><span style="color: #000000;">#1B</span> <span style="color: #008080;">then</span> <span style="color: #008080;">exit</span> <span style="color: #008080;">end</span> <span style="color: #008080;">if</span>
<span style="color: #7060A8;">puts</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #000000;">ch</span><span style="color: #0000FF;">)</span>
<span style="color: #008080;">end</span> <span style="color: #008080;">while</span>
<!--
without js
while true do
integer ch = wait_key()
if ch=#1B then exit end if
puts(1,ch)
end while

4
Task/Copy-stdin-to-stdout/VBScript/copy-stdin-to-stdout.vb
View file

@ -1,4 +0,0 @@
do
s=wscript.stdin.readline
wscript.stdout.writeline s
loop until asc(left(s,1))=26