User defined pipe and redirection operators: Difference between revisions

m
→‎{{header|ALGOL 68}}: remove #! from library.
m (→‎{{header|ALGOL 68}}: remove #! from library.)
Line 60:
=: = (GENLINE gen, FILTER filter)GENLINE: filter(gen),
=: = (GENLINE gen, MANYTOONE cmd)GENLINE: cmd(gen);</lang>'''File: Iterator_pipe_utilities.a68'''
<lang algol68>PROC cat yield line = ([]GENLINE argv, YIELDLINE yield)VOID:
<lang algol68>#!/usr/local/bin/a68g --script #
 
PROC cat yield line = ([]GENLINE argv, YIELDLINE yield)VOID:
FOR gen line FROM LWB argv TO UPB argv DO
argv[gen line](yield)
Line 243 ⟶ 241:
Number of scientists: 15
</pre>
 
=={{header|J}}==