2013年2月21日木曜日

開発環境

『初めてのPerl 第6版』(Randal L. Schwartz, Tom Phoenix, brian d foy 共著、近藤 嘉雪 訳、オライリー・ジャパン、2012年、ISBN978-4-87311-567-2)の1章(スカラーデータ)、2.12(練習問題5を解いてみる。

その他参考書籍

5.

コード(BBEdit)

sample.pl

#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
use 5.016;
binmode STDOUT, ':utf8';
binmode STDIN, ':utf8';
use Math::Trig;

my $s = <STDIN>;
chomp(my $n = <STDIN>);
print $s x $n;

入出力結果(Terminal)

$ ./sample.pl
fred
3
fred
fred
fred
$ ./sample.pl
fred
10
fred
fred
fred
fred
fred
fred
fred
fred
fred
fred
$

ちなみにJavaScriptの場合。

コード(BBEdit)

var s = $('#t0').val(),
    n = parseInt($('#t1').val(), 10),
    result = new Array(n + 1).join(s + "\n");
$('#pre0').text(result);



pythonの場合。

コード(BBEdit)

sample.py

#!/usr/bin/env python3.3
#-*- coding: utf-8 -*-

s = input("文字列: ")
n = int(input("数: "))
print((s + "\n") * n, end="")

入出力結果(Terminal)

$ ./sample.py
文字列: fred
数: 3
fred
fred
fred
$ ./sample.py
文字列: fred
数: 10
fred
fred
fred
fred
fred
fred
fred
fred
fred
fred
$

0 コメント:

コメントを投稿