User defined pipe and redirection operators: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) (→{{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: | Line 87: | ||
=={{header|ALGOL 68}}== |
=={{header|ALGOL 68}}== |
||
See [[User defined pipe and redirection operators/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 |
{{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 2.8.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 |
{{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 Currying.}} |
||
'''File: Iterator_pipe_operators.a68''' |
'''File: Iterator_pipe_operators.a68''' |
||
<lang algol68>MODE |
<lang algol68>MODE |
||
Line 177: | Line 177: | ||
# Finally check the result: # |
# Finally check the result: # |
||
print(( |
|||
"Pioneer: ", aa, newline, |
|||
"Number of Algol pioneers: ", whole( UPB algol pioneers list, 0 ), newline, |
|||
"Number of scientists: ", whole( UPB the scientists list, 0 ), newline |
|||
)) |
)) |
||
</lang> |
|||
'''Output:''' |
'''Output:''' |
||
<pre> |
<pre> |
||
Pioneer: Adriaan van Wijngaarden - Dutch pioneer; ARRA, ALGOL |
Pioneer: Adriaan van Wijngaarden - Dutch pioneer; ARRA, ALGOL |
||
Number of Algol pioneers: |
Number of Algol pioneers: 5 |
||
Number of scientists: |
Number of scientists: 13 |
||
</pre> |
</pre> |
||