Anonymous user
Narcissist: Difference between revisions
→{{header|Perl}}
(→{{header|TXR}}: added zkl) |
|||
Line 227:
<pre>True</pre>
=={{header|PARI/GP}}==
<lang parigp>narcissist()=input()==narcissist</lang>
Run narcissist():<pre>Hello
0</pre>
<pre>narcissist() = {input() == narcissist;}
1</pre>
=={{header|Perl}}==
<lang perl># this is file narc.pl
| |||