Program name: Difference between revisions
m
→{{header|Mathematica}}
Alextretyak (talk | contribs) (Added 11l) |
|||
Line 1,172:
</lang>
=={{header|Mathematica}}/{{header|Wolfram Language}}==
<lang mathematica>#!/usr/bin/env MathKernel -script
ScriptName[] = Piecewise[
{
Line 1,182 ⟶ 1,180:
$CommandLine[[Position[$CommandLine, "-script", 1][[1,1]] + 1]]
]
Program = ScriptName[];
Print["Program: " <> Program]</lang>
| |||