2013年2月18日月曜日

開発環境

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

その他参考書籍

3.

コード(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;

chomp(my $r = <STDIN>);
$r = 0 if $r < 0;
say 2 * pi * $r;

入出力結果(Terminal)

$ ./sample.pl
12.5
78.5398163397448
$ ./sample.pl
-12.5
0
$

ちなみにJavaScriptの場合。

コード(BBEdit)

var r = parseFloat($('#t0').val()),
    result = "";
if (r < 0) {
    r = 0;
}
result = 2 * Math.PI * r;
$('#pre0').text(result);




pythonの場合。

コード(BBEdit)

sample.py

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

import math

r = float(input("円の半径: "))
if r < 0:
    r = 0
print(2 * math.pi * r)

入出力結果(Terminal)

$ ./sample.py
円の半径: 12.5
78.53981633974483
$ ./sample.py
円の半径: -12.5
0.0
$

0 コメント:

コメントを投稿