Narcissist: Difference between revisions
Content added Content deleted
(Added Wren) |
(Added AppleScript.) |
||
Line 29: | Line 29: | ||
<lang algol68>STRINGs="STRINGs="";print(readstring=2*s[:9]+2*s[9:])";print(readstring=2*s[:9]+2*s[9:])</lang> |
<lang algol68>STRINGs="STRINGs="";print(readstring=2*s[:9]+2*s[9:])";print(readstring=2*s[:9]+2*s[9:])</lang> |
||
Output: T or F depending on input. |
Output: T or F depending on input. |
||
=={{header|AppleScript}}== |
|||
As long as the script hasn't been exported as run-only (''ie.'' without its source code): |
|||
<lang applescript>(display dialog "" default answer "")'s text returned = (do shell script ("osadecompile " & (path to me)'s POSIX path's quoted form))</lang> |
|||
{{output}} |
|||
Depending on the text entered and button clicked, one of: |
|||
<lang applescript>true |
|||
false |
|||
error "User cancelled." number -128</lang> |
|||
=={{header|AutoHotkey}}== |
=={{header|AutoHotkey}}== |