2013年2月14日木曜日

開発環境

『初めてのプログラミング 第2版』(Chris Pine 著、長尾 高弘 訳、オライリー・ジャパン、2010年、ISBN978-4-87311-469-9)の 2章(数値), 2.5(練習問題)10年のぶん数ではなくふん数 を解いてみる。

その他参考書籍

10年のぶん数ではなくふん

コード(BBEdit)

sample.rb

#!/usr/bin/env ruby1.9
#-*- coding: utf-8 -*-

td = Time.new
td = Time.local(td.year, td.month, td.day)
t = Time.local(td.year - 10, td.month, td.day)
puts "過去10年の分数: #{(td - t) / 60}分"

入出力結果(Terminal)

$ ./sample.rb
過去10年の分数: 5260320.0分
$

ちなみにJavaScriptの場合。

コード(BBEdit)

var td = new Date(),
    td = new Date(td.getFullYear(), td.getMonth(), td.getDate()),
    d = new Date(td.getFullYear() - 10, td.getMonth(), td.getDate()),
    result = "過去10年間の分数: " + (td - d) / (1000 * 60) + "分";
$('#pre0').text(result);


pythonの場合。

sample.py

コード(BBEdit)

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

import datetime
td = datetime.datetime.today()
t = td.replace(year=td.year - 10)
print("過去10年の分数: {0}".format((td.timestamp() - t.timestamp()) / 60))

入出力結果(Terminal)

$ ./sample.py
過去10年の分数: 5260320.000000002
$

perlの場合。

sample.pl

コード(BBEdit)

#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
use 5.016;
binmode STDIN, ":utf8";
binmode STDOUT, ":utf8";
use Time::Local;

my($mday, $mon, $year) = (localtime)[3,4,5];
print "過去10年の分数: " , 
    (timelocal(0,0,0,$mday, $mon, $year) - 
    timelocal(0,0,0,$mday, $mon, $year - 10)) / 60 ,"\n";

入出力結果(Terminal)

$ ./sample.pl
過去10年の分数: 5260320
$

0 コメント:

コメントを投稿