Be concise.
Be useful.
All contributions dictatorially edited by webmasters to match personal tastes.
Please do not paste any copyright violating material.
Please try to avoid dependencies to third-party libraries and frameworks.
(println (clojure.string/join " " *command-line-args*))
main(List<String> args) {
print(args.join(' '));
}
Enum.join(args, " ")
program x
implicit none
character (len=:), allocatable :: a
integer :: n, i, l
n = command_argument_count()
a = ''
do i=1,n
call get_command_argument(i, a, l)
if (l > len(a)) then
deallocate (a)
allocate (character(len=l) :: a)
call get_command_argument(i, a)
end if
write (unit=*,fmt='(A)', advance="no") a
if (i < n) then
write (unit=*,fmt='(" ")', advance="no")
else
write (unit=*,fmt='()')
end if
end do
end
console.log(process.argv.slice(2).join(" "));
fun main(args: Array<String>) = args.forEach(::println)
(format t "~{~A~^ ~}~%" *args*)
print( table.concat( arg, " " ) )
echo implode(' ', array_slice($argv, 1)), PHP_EOL;
PROGRAM Echo;
VAR
I: Integer;
BEGIN
for I := 1 to ParamCount - 1 do
Write(ParamStr(I), ' ');
if (ParamCount > 0) then
Write(ParamStr(ParamCount));
WriteLn();
END.
print "@ARGV\n"
main(Argv) :- echo(Argv).
echo([]) :- nl.
echo([Last]) :- write(Last), echo([]).
echo([H|T]) :- write(H), write(' '), echo(T).
printf("%s\n", ARGV.join(' '))
puts ARGV.join(' ')
println(args.mkString(" "))
(display (string-join (list-tail (command-line) 1) " "))
(newline)
| args arg sep |
args := CEnvironment commandLine readStream.
args next. " skip executable name "
sep := [args peek isNil not ifTrue: [' '] ifFalse: ['']].
[ (arg := args next) isNil ] whileFalse: [
Transcript show: arg; show: (sep value).
].
Transcript cr. " cr -> carriage return; ie. newline "