Program name: Difference between revisions
Content added Content deleted
(→{{header|Common Lisp}}: {{improve|Common Lisp|If this solution is only for CLISP, then why mention #+sbcl, #+clozure, and so on?}}) |
(added Mathematica) |
||
| Line 529: | Line 529: | ||
module(..., package.seeall) |
module(..., package.seeall) |
||
end</lang> |
end</lang> |
||
=={{header|Mathematica}}== |
|||
<lang mathematica>#!/usr/bin/env MathKernel -script |
|||
ScriptName[] = Piecewise[ |
|||
{ |
|||
{"Interpreted", Position[$CommandLine, "-script", 1] == {}} |
|||
}, |
|||
$CommandLine[[Position[$CommandLine, "-script", 1][[1,1]] + 1]] |
|||
] |
|||
Program = ScriptName[]; |
|||
Print["Program: " <> Program]</lang> |
|||
=={{header|newLISP}}== |
=={{header|newLISP}}== |
||