Jump to content

Program name: Difference between revisions

m
(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>
 
1,111

edits

Cookies help us deliver our services. By using our services, you agree to our use of cookies.