procedure Main is
begin
for I in 1 .. Argument_Count loop
Put (Argument (I) & (if I = Argument_Count then "" else " "));
end loop;
New_Line;
end Main;
int main(int argc, char *argv[])
{
while (*++argv) {
printf("%s", *argv);
if (argv[1]) printf(" ");
}
printf("\n");
return EXIT_SUCCESS;
}
(println (clojure.string/join " " *command-line-args*))
int main(int argc, char * argv[])
{
for(int i = 1; i < argc; ++i)
{
std::cout <<(1==i ? "" : " ") << argv[i];
}
std::cout <<std::endl;
}
public class Program
{
public static void Main(string[] args)
{
Console.WriteLine(string.Join(" ", args));
}
}
void main(string[] args)
{
args[1..$].join(" ").writeln;
}
void main(string[] args)
{
writeln(args.dropOne.joiner(" "));
}
main(List<String> args) {
print(args.join(' '));
}
main() ->
main(init:get_plain_arguments()).
main(ARGV) ->
io:format("~s~n", [lists:join(" ", ARGV)]).
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
func main() {
fmt.Println(strings.Join(os.Args[1:], " "))
}
putStrLn . unwords =<< System.Environment.getArgs
console.log(process.argv.slice(2).join(" "));
public class Echo {
public static void main(final String... args) {
out.println(join(" ", args));
}
}
fun main(args: Array<String>) = args.forEach(::println)
(format t "~{~A~^ ~}~%" *args*)
print( table.concat( arg, " " ) )
int main(int argc, char *argv[])
{
while (*++argv) {
printf("%s", *argv);
if (argv[1]) printf(" ");
}
printf("\n");
return EXIT_SUCCESS;
}
int main() {
NSArray *all=NSProcessInfo.processInfo.arguments;
NSArray *args=[all subarrayWithRange:NSMakeRange(1,all.count-1)];
puts([args componentsJoinedByString:@" "].UTF8String);
return 0;
}
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.
main(Argv) :- echo(Argv).
echo([]) :- nl.
echo([Last]) :- write(Last), echo([]).
echo([H|T]) :- write(H), write(' '), echo(T).
print(' '.join(sys.argv[1:]))
printf("%s\n", ARGV.join(' '))
println!("{}", env::args().skip(1).collect::<Vec<_>>().join(" "));
println!("{}", std::env::args().skip(1).format(" "));
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 "