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