開発環境
- OS X Lion - Apple(OS)
- TextWrangler(Text Editor) (BBEditの機能制限無料版、light版)
- Script言語:Perl
『初めてのPerl 第6版』(Randal L. Schwartz, Tom Phoenix, brian d foy 共著、近藤 嘉雪 訳、オライリー・ジャパン、2012年、ISBN978-4-87311-567-2) の4章(サブルーチン)、4.12(練習問題)1を解いてみる。
その他参考書籍
1.
コード(TextWrangler)
sample.pl
#!/usr/bin/env perl use strict; use warnings; use utf8; use 5.016; binmode STDIN, ':utf8'; binmode STDOUT, ':utf8'; sub total{ my $result = 0; for(@_){ $result += $_; } return $result; } # サブルーチンはダブルクォート内で展開されないから囲まないように注意 print "1 + 2 + ・・・ + 1000 = ", total(1..1000), "\n";
入出力結果(Terminal)
$ ./sample.pl 1 + 2 + ・・・ + 1000 = 500500 $
ちなみにJavaScriptの場合。
コード(TextWrangler)
function total(a){ var result = 0; for(var i = 0; i < a.length; i++){ result += a[i]; } return result; } var numbers = []; for(var i = 1; i <= 1000; i++){ numbers.push(i); } var result = "1 + 2 + ・・・ + 1000 = " + total(numbers); $('#pre0').text(result);
pythonの場合。
sample.py
コード(TextWrangler)
#!/usr/bin/env python3.3 #-*- coding:utf-8 -*- def total(l): result = 0 for x in l: result += x return result print("1 + 2 + ・・・ + 1000 = {0}".format(total(range(1,1001))))
入出力結果(Terminal)
$ ./sample.py 1 + 2 + ・・・ + 1000 = 500500 $
0 コメント:
コメントを投稿