Rosetta Code/Count examples: Difference between revisions
→{{header|Ada}}: Fixed compilation/run issues.
m (→{{header|Wren}}: Minor changes (though see Talk Page re encoding of '+')) |
(→{{header|Ada}}: Fixed compilation/run issues.) |
||
Line 47:
Page : Aws.Response.Data;
Uri_Xml : constant String :=
"
&
"&format=xml&cmlimit=500&cmtitle=Category:";
begin
Page := Client.Get (Uri_Xml & Category, Follow_Redirection => True);
if AWS.Response.Status_Code (Page) not in Messages.Success then
raise Client.Connection_Error;
end if;
Line 85:
Page :=
Client.Get
("
Aws.Url.Encode (Title) &
"&action=raw"
Follow_Redirection => True);
AWS.Response.Message_Body (Page, File);
while not End_Of_File (File) loop
Resources.Get_Line (File, Buffer, Last);
Line 122 ⟶ 123:
Output :
<pre>
100 doors :
15 puzzle game : 90 exemples.
24 game : 30 exemples.
....
</pre>
▲Zig-zag matrix : 49 exemples.
=={{header|AutoHotkey}}==
| |||