Anonymous user
Narcissist: Difference between revisions
m
→{{header|REXX}}: removed superfluous blank lines. -- ~~~~
(Added Perl 6 solution.) |
m (→{{header|REXX}}: removed superfluous blank lines. -- ~~~~) |
||
Line 173:
===version 1===
(returns 1 or 0)
<lang rexx>/*REXX*/ say arg(1)=sourceline(1)</lang>
/*REXX*/ say arg(1)=sourceline(1)▼
===version 2===
(returns accept or reject)
▲<lang rexx>/*REXX*/ say word('reject accept',1+(arg(1)=sourceline(1)))</lang>
=={{header|Ruby}}==
| |||