メタプログラミングPerl nagoya rubykaigi02
2 likes1,158 views
The document discusses the author's experiences with various programming languages including Perl, Ruby, and functional programming concepts. It provides daily logs covering topics like multiple inheritance in Perl versus Ruby, augmenting classes in Ruby, lambda functions in Ruby vs JavaScript, and metaprogramming techniques. It encourages participation in the local Nagoya programming community and lists some other language meetups held in Nagoya.
![class Str
def to_an
gsub /[^ws]/, ''
end
end
puts ‘a*10?’.to_an
# => ‘a10’](https://image.slidesharecdn.com/perlnagoyarubykaigi02-110226022357-phpapp01/85/Perl-nagoya-rubykaigi02-28-320.jpg)
![obj = []
def obj.f
puts 'called f'
end
obj.f
# => ‘called f’](https://image.slidesharecdn.com/perlnagoyarubykaigi02-110226022357-phpapp01/85/Perl-nagoya-rubykaigi02-37-320.jpg)
![• http://perl-users.jp/articles/advent-calendar/
2010/perl6/
• http://d.hatena.ne.jp/uasi/searchdiary?
word=*[Perl6]
• http://perlgeek.de/en/article/5-to-6](https://image.slidesharecdn.com/perlnagoyarubykaigi02-110226022357-phpapp01/85/Perl-nagoya-rubykaigi02-81-320.jpg)
メタプログラミングPerl nagoya rubykaigi02
- 1. Perl 2011/02/26 @NagoyaRubyKaigi02 id:clairvy
- 2. • • PHP / Java / Git / Subversion • Zsh + Screen + Emacs + Eclipse • Nagoya.pm / CSNagoya • Mixi PS
- 4. “Ruby Rubyists ? Ruby ” http://blog.livedoor.jp/dankogai/archives/51507869.html
- 5. “ ” 97 26-
- 6. • • PHP / Java / Git / Subversion • Zsh + Screen + Emacs + Eclipse • Nagoya.pm / CSNagoya •Mixi PS
- 7. Perl
- 10. • (Wikipedia - ) •
- 11. • • • • •
- 12. 1 (ry
- 13. Monday
- 15. in Ruby
- 16. Object #Object C #C D #D obj #obj
- 18. Simple
- 19. in Perl
- 20. > >
- 21. obj Roles Parents
- 22. obj Roles Parents
- 24. P11 P12 P21 P21 P1 P2 C
- 25. class P11 { method f {print " P11"} }; ( ) class C is P1 is P2 { method f {print "C"} }; my $obj = C.new; $obj.+f; # => C P1 P11 P12 P2 P21 P22
- 26. Tuesday
- 28. class Str def to_an gsub /[^ws]/, '' end end puts ‘a*10?’.to_an # => ‘a10’
- 29. use MONKEY_TYPING; augment class Str { method to_an { my $s = self; $s ~~ s:g/<-alnum-space>+//; return $s; }} say ‘a*10?’; # => ‘a10’
- 30. use MONKEY_TYPING; augment class Str { method to_an { my $s = self; $s ~~ s:g/<-alnum-space>+//; return $s; }} say ‘a*10?’; # => ‘a10’
- 32. Wednesday
- 34. ^add_method
- 35. ○ Class, Role × Object
- 36. Role
- 37. obj = [] def obj.f puts 'called f' end obj.f # => ‘called f’
- 38. my @obj; my $role = RoleHOW.new; $role.^add_method(‘f’, my method f { say ‘called f’ }); $role.^compose; @obj does $role; @obj.f; # => ‘called f’
- 41. class C; end def C.cm puts ‘cm’ end puts C.cm # => ‘cm’
- 42. class C { method cm ($self :defined :) { say ‘cm’ } } C.cm # => ‘cm’
- 44. Thursday
- 46. Long •function • define • lambda • defun • proc
- 47. Long •function • define • lambda • defun • proc
- 48. middle •fun • def • {} • -> { }
- 49. middle •fun • def • {} • -> { }
- 50. Too short
- 52. sample
- 53. zero = lambda{|f|lambda{|x|x}} addone = lambda{|m| lambda{|f|lambda{|x|f.call(m.call(f).call(x))}}} one = addone.call(zero) plus = lambda{|m, n| lambda{|f|lambda{|x|m.call(f).call(n.call(f).call(x))}}} two = plus.call(one, one) three = plus.call(two, one) inc = lambda{|x|x+1} puts ‘zero = ‘ + zero.call(inc).call(0).to_s puts ‘one = ‘ + one.call(inc).call(0).to_s puts ‘two = ‘ + two.call(inc).call(0).to_s puts ‘three = ‘ + three.call(inc).call(0).to_s
- 54. my $zero = ->$f{->$x{$x}}; my $addone = ->$n{->$f{->$x{$f($n($f)($x))}}}; my $one = $addone($zero); my $add = ->$m,$n{->$f{->$x{$m($f)($n($f)($x))}}}; my $two = $add($one, $one); my $three = $add($two, $one); my $inc = {$^n+1}; say 'zero = ', $zero($inc)(0); say 'one = ', $one($inc)(0); say 'two = ', $two($inc)(0); say 'three = ', $three($inc)(0);
- 55. Friday
- 59. for 0..Inf -> $i { say $i; last if $i > 17; }
- 60. Saturday
- 65. TMTOWTDI
- 69. in Nagoya
- 70. ( ) • Scala (Scala) • Has (Haskell) • Proof Cafe (Coq) • Nagoya.lisp (lisp) • OCaml-Nagoya (OCaml)
- 71. And
- 72. Nagoya.pm( )
- 73. Nagoya.pm( )
- 76. Perl λ
- 78. Any Questions?
- 80. Perl6
- 81. • http://perl-users.jp/articles/advent-calendar/ 2010/perl6/ • http://d.hatena.ne.jp/uasi/searchdiary? word=*[Perl6] • http://perlgeek.de/en/article/5-to-6
- 82. • https://github.com/clairvy/ metaprogramming_ruby
Editor's Notes
- #2: \n
- #3: \n
- #4: \n
- #5: \n
- #6: \n
- #7: \n
- #8: \n
- #9: \n
- #10: \n
- #11: \n
- #12: \n
- #13: \n
- #14: \n
- #15: \n
- #16: \n
- #17: \n
- #18: \n
- #19: \n
- #20: \n
- #21: \n
- #22: \n
- #23: \n
- #24: \n
- #25: \n
- #26: \n
- #27: \n
- #28: \n
- #29: \n
- #30: \n
- #31: \n
- #32: \n
- #33: \n
- #34: \n
- #35: \n
- #36: \n
- #37: \n
- #38: \n
- #39: \n
- #40: \n
- #41: \n
- #42: \n
- #43: \n
- #44: \n
- #45: \n
- #46: \n
- #47: \n
- #48: \n
- #49: \n
- #50: \n
- #51: \n
- #52: \n
- #53: \n
- #54: \n
- #55: \n
- #56: \n
- #57: \n
- #58: \n
- #59: \n
- #60: \n
- #61: \n
- #62: \n
- #63: \n
- #64: \n
- #65: \n
- #66: \n
- #67: \n
- #68: \n
- #69: \n
- #70: \n
- #71: \n
- #72: \n
- #73: \n
- #74: \n
- #75: \n
- #76: \n
- #77: \n
- #78: \n
- #79: \n
- #80: \n
- #81: \n