User defined pipe and redirection operators: Difference between revisions

→‎{{header|ALGOL 68}}: Re-run with corrected UD pipe operators - pioneer and scientist counts now agree with the Go example. Replaced formatted transput with unformatted as the latest (Windows) Algol 68G didn't like it.
(→‎{{header|Perl 6}}: Add a Perl6 example)
(→‎{{header|ALGOL 68}}: Re-run with corrected UD pipe operators - pioneer and scientist counts now agree with the Go example. Replaced formatted transput with unformatted as the latest (Windows) Algol 68G didn't like it.)
Line 87:
=={{header|ALGOL 68}}==
See [[User defined pipe and redirection operators/ALGOL 68]]
{{works with|ALGOL 68|Revision 1; one minor extension - PRAGMA READ; one major extension - Algol68G's [[wp:Currying|Currying]].}}{{works with|ALGOL 68G|tested with release [http://sourceforge2.net/projects/algol68/files/algol68g/algol68g-18.18.0/algol68g-1.18.0-9h.tiny.el5.centos.fc11.i386.rpm/download 1.18.0-9h.tiny]3.win32}}
{{wont work with|ELLA ALGOL 68|Any (with appropriate job cards) - tested with release [http://sourceforge.net/projects/algol68/files/algol68toc/algol68toc-1.8.8d/algol68toc-1.8-8d.fc9.i386.rpm/download 1.8-8d] - due to extensive use of '''format'''[ted] ''transput''Currying.}}
'''File: Iterator_pipe_operators.a68'''
<lang algol68>MODE
Line 177:
 
# Finally check the result: #
printfprint((
$"Pioneer: "$, line fmt, aa, $l$newline,
$"Number of Algol pioneers: "g(-0)$, whole( UPB algol pioneers list, $l$0 ), newline,
$"Number of scientists: "g(-0)$, whole( UPB the scientists list, $l$0 ), newline
))</lang>
</lang>
'''Output:'''
<pre>
Pioneer: Adriaan van Wijngaarden - Dutch pioneer; ARRA, ALGOL
Number of Algol pioneers: 65
Number of scientists: 1513
</pre>
 
3,021

edits