Mercurial > op > Looping

diff Looping.pm @ 6:5e09f7cf87f5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Perl版のソースコードを追加。
author "uncorrelated zombie" <uncorrelated@yahoo.co.jp>
date Thu, 17 Feb 2011 15:32:22 +0900
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/Looping.pm	Thu Feb 17 15:32:22 2011 +0900
@@ -0,0 +1,19 @@
+package Looping;
+
+sub new {
+  my $class = shift;
+  my $self = {
+    n0 => 1
+  };
+  bless $self, $class;
+}
+
+sub calc {
+  my $self = shift;
+  my $n = shift;
+  my $n1 = $self->{n0} + (1 - 2*($n%2));
+  $self->{n0} = $n;
+  return $n1;
+}
+
+1;