ForNext
Only Do What Only You Can Do
073. 文字列の走査
VBScript
JScript
Perl
更新日 : 2010.10.18
sub put_string { my ($str) = @_; foreach $val(split(//, $str)) { print $val; } } $str = "ABC"; &put_string($str); print "\n";
L:\>perl lesson_09_073.pl ABC
PHP
更新日 : 2010.11.03
<?php function put_string($str) { for ($i = 0; $i < strlen($str); $i++) { print substr($str, $i, 1); } } $str = "ABC"; put_string($str); print "\n"; ?>
L:\>php lesson_09_073.php ABC
Python
更新日 : 2010.11.17
import sys def put_string(str): for i in range(0, len(str), 1): sys.stdout.write(str[i]) str = "ABC" put_string(str) print
N:\>python lesson_09_073.py ABC
Ruby
更新日 : 2010.11.01
def put_string(arg) arg.split(//s).each do |char| print char end end str = "ABC" put_string(str) puts ""
L:\>ruby l:\lesson_09_073.rb ABC
PowerShell
Scala
F#
C
更新日 : 2010.10.08
#include <stdio.h> void put_string(const char str[]) { unsigned i = 0; while (str[i]) putchar(str[i++]); } int main(int argc, char* argv[]) { char str[100] = "ABC"; put_string(str); putchar('\n'); return 0; }
R:\>lesson073\Project1.exe ABC
C++
C++Builder
VC++
C#
Java
Objective-C
D
VB
VB.NET
Delphi
更新日 : 2010.09.24
program Project1; {$APPTYPE CONSOLE} uses SysUtils; procedure put_string(str:String); var i: Integer; begin for i := 1 to Length(str) do write(str[i]); end; procedure main(); var str: String; begin str := 'ABC'; put_string(str); write(#13#10); end; begin main; end.
S:\>lesson073\Project1.exe ABC