仮想関数テーブルと型クラスを見比べる

型クラスについての理解を深めるために、仮想関数テーブルで部分型多相+動的ディスパッチを実現した場合との違い・共通点を見比べてみます。型クラスは(その出自はともかく)関数型プログラミング特有の概念というわけではないことを確かめます。

1. Ծ૝ؔ਺ςʔϒϧͱ ܕΫϥεΛݟൺ΂Δ ҏಸ ྛଠ࿠ id:tarao @tarao @oarat 2024-01-26 ୈޒճؔ਺ܕϓϩάϥϛϯά (Ծ) ͷձ
2. ࣗݾ঺հ ໊લ ɹ ͍ ͳ ҏಸ ɹ ɹ ΓΜͨΖ͏ ྛଠ࿠ ɹ ( id:tarao @tarao @oarat) 2021-02 ∼ ͸ͯͳ ΤϯδχΞϦϯάϚωʔδϟ 2013-04 ∼ ͸ͯͳ ΤϯδχΞ 2010-04 ∼ ژ౎େֶ ৘ใֶݚڀՊ (ࠤ౻ɾޒेཛྷݚ) ത࢜ޙظ՝ఔ / ೔ຊֶज़ৼڵձ ಛผݚڀһ (DC1) ࠷ۙ ▶ record4s: extensible records for Scala ▶ ͋ΒΏΔϓϩάϥϛϯάݴޠͷ࠷ઌ୺Λߦ ͘ Scala 3 ͷϚΫϩ ੲ ▶ L. Ina and A. Igarashi. Gradual Typing for Generics. In Proc. of OOPSLA 2011. ▶ “gradual typing” Λʮ઴ਐతܕ෇͚ʯͱ༁ ͨ͠ऀͷ 1 ਓ
3. ܕΫϥεͱOOP SPJ ᐌ͘ “ ▶ A bit like OOP, except that method suite passed separately? ▶ No!! Type classes implement type-based dispatch, not value-based dispatch ▶ S. P. Jones. Classes, Jim, but not as we know them — Type classes in Haskell. In ECOOP 2009.
4. ͋ʔ ͦʔΏʔ͜ͱͶ ׬શʹཧղͨ͠
5. ͋ʔ ͦʔΏʔ͜ͱͶ ׬શʹཧղͨ͠ . . . ͬͯࢥͬͨͷ͸ tarao ͚͔ͩ΋͠Εͳ͍͔Β ͜ͷ࿩Λ͢Δ͜ͱʹ͠·ͨ͠ (tarao ʹͱͬͯ͸౰ͨΓલͷ࿩͔͠͠·ͤΜ)
6. OOPͱܕΫϥεͷҙຯ࿦Λൺֱ
7. ݴޠػೳͷҙຯ࿦ ݴޠ L ͷػೳ F ▶ L ⇝ (L − F) ͷม׵Ͱఆٛ͢Δ (࣮ࡍͷॲཧܥʹ͓͚Δ౶ҥߏจͷ desugar ʹ૬౰) ྫ ▶ ݴޠ L : Haskell ▶ ػೳ F : ܕΫϥε ▶ ม׵ : ܕΫϥε͋Γͷ Haskell ⇝ ܕΫϥεͳ͠ͷ Haskell (Wadler ’89 ͷ࿦จͰ΋࣮ࡍͦ͏΍ͬͯҙຯ࿦Λ༩͍͑ͯΔ)
8. OOP
9. OOP (෦෼ܕଟ૬ + ಈతσΟεύον) abstract class Pet: def speak(): String class Cat extends Pet: override def speak(): String = "Meow" class Dog extends Pet: override def speak(): String = "Woof" def listen(pet: Pet): String = pet.speak() listen(new Cat) // "Meow" listen(new Dog) // "Woof"
10. OOP (෦෼ܕଟ૬ + ಈతσΟεύον) abstract class Pet: def speak(): String class Cat extends Pet: override def speak(): String = "Meow" class Dog extends Pet: override def speak(): String = "Woof" def listen(pet: Pet): String = pet.speak() listen(new Cat) // "Meow" listen(new Dog) // "Woof" ▶ ҟͳΔܕΛ౷Ұతʹѻ͍͍ͨ
11. OOP (෦෼ܕଟ૬ + ಈతσΟεύον) abstract class Pet: def speak(): String class Cat extends Pet: override def speak(): String = "Meow" class Dog extends Pet: override def speak(): String = "Woof" def listen(pet: Pet): String = pet.speak() listen(new Cat) // "Meow" listen(new Dog) // "Woof" ▶ ڞ௨ͷ্ҐܕΛࢦఆ (෦෼ܕଟ૬)
12. OOP (෦෼ܕଟ૬ + ಈతσΟεύον) abstract class Pet: def speak(): String class Cat extends Pet: override def speak(): String = "Meow" class Dog extends Pet: override def speak(): String = "Woof" def listen(pet: Pet): String = pet.speak() listen(new Cat) // "Meow" listen(new Dog) // "Woof" ▶ ಉ໊ϝιουΛ෦෼ܕ͝ͱʹ࣮૷
13. OOP (෦෼ܕଟ૬ + ಈతσΟεύον) abstract class Pet: def speak(): String class Cat extends Pet: override def speak(): String = "Meow" class Dog extends Pet: override def speak(): String = "Woof" def listen(pet: Pet): String = pet.speak() listen(new Cat) // "Meow" listen(new Dog) // "Woof" ▶ ݺ͹ΕΔͷ͸෦෼ܕͷϝιου࣮૷ (ಈతσΟεύον)
14. OOPͷҙຯ࿦ (Ծ૝ؔ਺ςʔϒϧ (vtable)) abstract class Pet: def speak(): String class Cat extends Pet: override def speak(): String = "Meow" class Dog extends Pet: override def speak(): String = "Woof" def listen(pet: Pet): String = pet.speak() abstract class Pet( val vtable: PetMethods ) class PetMethods(val speak: Pet => String) class Cat extends Pet( CatIsPet ): def speak(): String = "Meow" val CatIsPet = PetMethods((pet: Pet) => pet.asInstanceOf[Cat].speak() ) class Dog extends Pet( DogIsPet ): def speak(): String = "Woof" val DogIsPet = PetMethods((pet: Pet) => pet.asInstanceOf[Dog].speak() ) def listen(pet: Pet): String = pet.vtable .speak(pet) ˞ ࣮ࡍͷॲཧܥͷ࣮૷ͱ͸ҟͳΔ (͋͘·Ͱ֓೦্ͷઆ໌)
15. OOPͷҙຯ࿦ (Ծ૝ؔ਺ςʔϒϧ (vtable)) abstract class Pet: def speak(): String class Cat extends Pet: override def speak(): String = "Meow" class Dog extends Pet: override def speak(): String = "Woof" def listen(pet: Pet): String = pet.speak() abstract class Pet( val vtable: PetMethods ) class PetMethods(val speak: Pet => String) class Cat extends Pet( CatIsPet ): def speak(): String = "Meow" val CatIsPet = PetMethods((pet: Pet) => pet.asInstanceOf[Cat].speak() ) class Dog extends Pet( DogIsPet ): def speak(): String = "Woof" val DogIsPet = PetMethods((pet: Pet) => pet.asInstanceOf[Dog].speak() ) def listen(pet: Pet): String = pet.vtable .speak(pet) ▶ override ͳ͠Ͱॻ͘
16. OOPͷҙຯ࿦ (Ծ૝ؔ਺ςʔϒϧ (vtable)) abstract class Pet: def speak(): String class Cat extends Pet: override def speak(): String = "Meow" class Dog extends Pet: override def speak(): String = "Woof" def listen(pet: Pet): String = pet.speak() abstract class Pet( val vtable: PetMethods ) class PetMethods(val speak: Pet => String) class Cat extends Pet( CatIsPet ): def speak(): String = "Meow" val CatIsPet = PetMethods((pet: Pet) => pet.asInstanceOf[Cat].speak() ) class Dog extends Pet( DogIsPet ): def speak(): String = "Woof" val DogIsPet = PetMethods((pet: Pet) => pet.asInstanceOf[Dog].speak() ) def listen(pet: Pet): String = pet.vtable .speak(pet) ▶ ڞ௨ͷϝιουͷശ (ࣙॻ) Λ༻ҙ͓ͯ͘͠
17. OOPͷҙຯ࿦ (Ծ૝ؔ਺ςʔϒϧ (vtable)) abstract class Pet: def speak(): String class Cat extends Pet: override def speak(): String = "Meow" class Dog extends Pet: override def speak(): String = "Woof" def listen(pet: Pet): String = pet.speak() abstract class Pet( val vtable: PetMethods ) class PetMethods(val speak: Pet => String) class Cat extends Pet( CatIsPet ): def speak(): String = "Meow" val CatIsPet = PetMethods((pet: Pet) => pet.asInstanceOf[Cat].speak() ) class Dog extends Pet( DogIsPet ): def speak(): String = "Woof" val DogIsPet = PetMethods((pet: Pet) => pet.asInstanceOf[Dog].speak() ) def listen(pet: Pet): String = pet.vtable .speak(pet) ▶ ෦෼ܕ͝ͱʹผʑͷϝιουΛ٧Ί͓ͯ͘
18. OOPͷҙຯ࿦ (Ծ૝ؔ਺ςʔϒϧ (vtable)) abstract class Pet: def speak(): String class Cat extends Pet: override def speak(): String = "Meow" class Dog extends Pet: override def speak(): String = "Woof" def listen(pet: Pet): String = pet.speak() abstract class Pet( val vtable: PetMethods ) class PetMethods(val speak: Pet => String) class Cat extends Pet( CatIsPet ): def speak(): String = "Meow" val CatIsPet = PetMethods((pet: Pet) => pet.asInstanceOf[Cat].speak() ) class Dog extends Pet( DogIsPet ): def speak(): String = "Woof" val DogIsPet = PetMethods((pet: Pet) => pet.asInstanceOf[Dog].speak() ) def listen(pet: Pet): String = pet.vtable .speak(pet) ▶ vtable Λܦ༝ͯ͠ϝιουΛݺͿ
19. ܕΫϥε
20. ܕΫϥε (ύϥϝʔλଟ૬ + ΞυϗοΫଟ૬) trait Pet[P] : extension (p: P) def speak(): String class Cat: def speak(): String = "Meow" given Pet[Cat] with extension (cat: Cat) def speak(): String = cat.speak() class Dog: def speak(): String = "Woof" given Pet[Dog] with extension (dog: Dog) def speak(): String = dog.speak() def listen[P: Pet ](pet: P ): String = pet.speak() listen( new Cat ) // "Meow" listen( new Dog ) // "Woof"
21. ܕΫϥε (ύϥϝʔλଟ૬ + ΞυϗοΫଟ૬) trait Pet[P] : extension (p: P) def speak(): String class Cat: def speak(): String = "Meow" given Pet[Cat] with extension (cat: Cat) def speak(): String = cat.speak() class Dog: def speak(): String = "Woof" given Pet[Dog] with extension (dog: Dog) def speak(): String = dog.speak() def listen[P: Pet ](pet: P ): String = pet.speak() listen( new Cat ) // "Meow" listen( new Dog ) // "Woof" ▶ ҟͳΔܕΛ౷Ұతʹѻ͍͍ͨ
22. ܕΫϥε (ύϥϝʔλଟ૬ + ΞυϗοΫଟ૬) trait Pet[P] : extension (p: P) def speak(): String class Cat: def speak(): String = "Meow" given Pet[Cat] with extension (cat: Cat) def speak(): String = cat.speak() class Dog: def speak(): String = "Woof" given Pet[Dog] with extension (dog: Dog) def speak(): String = dog.speak() def listen[P: Pet ](pet: P ): String = pet.speak() listen( new Cat ) // "Meow" listen( new Dog ) // "Woof" ▶ ಛఆͷΠϯλϑΣʔεΛཁٻ (͜Ε͕ܕΫϥε)
23. ܕΫϥε (ύϥϝʔλଟ૬ + ΞυϗοΫଟ૬) trait Pet[P] : extension (p: P) def speak(): String class Cat: def speak(): String = "Meow" given Pet[Cat] with extension (cat: Cat) def speak(): String = cat.speak() class Dog: def speak(): String = "Woof" given Pet[Dog] with extension (dog: Dog) def speak(): String = dog.speak() def listen[P: Pet ](pet: P ): String = pet.speak() listen( new Cat ) // "Meow" listen( new Dog ) // "Woof" ▶ ΠϯλϑΣʔεΛຬͨ͢ূڌ (ܕΫϥεͷΠϯελϯε)
24. ܕΫϥε (ύϥϝʔλଟ૬ + ΞυϗοΫଟ૬) trait Pet[P] : extension (p: P) def speak(): String class Cat: def speak(): String = "Meow" given Pet[Cat] with extension (cat: Cat) def speak(): String = cat.speak() class Dog: def speak(): String = "Woof" given Pet[Dog] with extension (dog: Dog) def speak(): String = dog.speak() def listen[P: Pet ](pet: P ): String = pet.speak() listen( new Cat ) // "Meow" listen( new Dog ) // "Woof" ▶ ূڌʹج͍ͮͯݺͼ෼͚
25. ܕΫϥεͷҙຯ࿦ trait Pet[P]: extension (p: P) def speak(): String class Cat: def speak(): String = "Meow" given Pet[Cat] with extension (cat: Cat) def speak(): String = cat.speak() class Dog: def speak(): String = "Woof" given Pet[Dog] with extension (dog: Dog) def speak(): String = dog.speak() def listen[P: Pet](pet: P): String = pet.speak() class Pet[P](val speak: P => String) class Cat: def speak(): String = "Meow" val CatIsPet = Pet[Cat]((cat: Cat) => cat.speak()) class Dog: def speak(): String = "Woof" val DogIsPet = Pet[Dog]((dog: Dog) => dog.speak()) def listen[P](pet: P) (dict: Pet[P]) : String = dict .speak(pet)
26. ܕΫϥεͷҙຯ࿦ trait Pet[P]: extension (p: P) def speak(): String class Cat: def speak(): String = "Meow" given Pet[Cat] with extension (cat: Cat) def speak(): String = cat.speak() class Dog: def speak(): String = "Woof" given Pet[Dog] with extension (dog: Dog) def speak(): String = dog.speak() def listen[P: Pet](pet: P): String = pet.speak() class Pet[P](val speak: P => String) class Cat: def speak(): String = "Meow" val CatIsPet = Pet[Cat]((cat: Cat) => cat.speak()) class Dog: def speak(): String = "Woof" val DogIsPet = Pet[Dog]((dog: Dog) => dog.speak()) def listen[P](pet: P) (dict: Pet[P]) : String = dict .speak(pet) ▶ ܕΫϥεͷ࣮ମ͸ϝιουͷࣙॻ
27. ܕΫϥεͷҙຯ࿦ trait Pet[P]: extension (p: P) def speak(): String class Cat: def speak(): String = "Meow" given Pet[Cat] with extension (cat: Cat) def speak(): String = cat.speak() class Dog: def speak(): String = "Woof" given Pet[Dog] with extension (dog: Dog) def speak(): String = dog.speak() def listen[P: Pet](pet: P): String = pet.speak() class Pet[P](val speak: P => String) class Cat: def speak(): String = "Meow" val CatIsPet = Pet[Cat]((cat: Cat) => cat.speak()) class Dog: def speak(): String = "Woof" val DogIsPet = Pet[Dog]((dog: Dog) => dog.speak()) def listen[P](pet: P) (dict: Pet[P]) : String = dict .speak(pet) ▶ ΠϯλϑΣʔεͷূڌ͸ࣙॻΠϯελϯε
28. ܕΫϥεͷҙຯ࿦ trait Pet[P]: extension (p: P) def speak(): String class Cat: def speak(): String = "Meow" given Pet[Cat] with extension (cat: Cat) def speak(): String = cat.speak() class Dog: def speak(): String = "Woof" given Pet[Dog] with extension (dog: Dog) def speak(): String = dog.speak() def listen[P: Pet](pet: P): String = pet.speak() class Pet[P](val speak: P => String) class Cat: def speak(): String = "Meow" val CatIsPet = Pet[Cat]((cat: Cat) => cat.speak()) class Dog: def speak(): String = "Woof" val DogIsPet = Pet[Dog]((dog: Dog) => dog.speak()) def listen[P](pet: P) (dict: Pet[P]) : String = dict .speak(pet) ▶ ܕΫϥεΛ࢖͏ϝιου͸ࣙॻΛऔΔܗʹม׵
29. ܕΫϥεͷҙຯ࿦ trait Pet[P]: extension (p: P) def speak(): String class Cat: def speak(): String = "Meow" given Pet[Cat] with extension (cat: Cat) def speak(): String = cat.speak() class Dog: def speak(): String = "Woof" given Pet[Dog] with extension (dog: Dog) def speak(): String = dog.speak() def listen[P: Pet](pet: P): String = pet.speak() listen(new Cat) listen(new Dog) class Pet[P](val speak: P => String) class Cat: def speak(): String = "Meow" val CatIsPet = Pet[Cat]((cat: Cat) => cat.speak()) class Dog: def speak(): String = "Woof" val DogIsPet = Pet[Dog]((dog: Dog) => dog.speak()) def listen[P](pet: P) (dict: Pet[P]) : String = dict .speak(pet) listen(new Cat) (CatIsPet) listen(new Dog) (DogIsPet)
30. ൺֱ
31. ද૚Λݟൺ΂Δ OOP abstract class Pet : def speak(): String class Cat extends Pet : override def speak(): String = "Meow" class Dog extends Pet : override def speak(): String = "Woof" def listen(pet: Pet ): String = pet.speak() ܕΫϥε trait Pet[ P ]: extension (p: P ) def speak(): String class Cat: def speak(): String = "Meow" given Pet[ Cat ] with extension (cat: Cat) def speak(): String = cat.speak() class Dog: def speak(): String = "Woof" given Pet[ Dog ] with extension (dog: Dog) def speak(): String = dog.speak() def listen[P: Pet](pet: P ): String = pet.speak()
32. ද૚Λݟൺ΂Δ OOP abstract class Pet : def speak(): String class Cat extends Pet : override def speak(): String = "Meow" class Dog extends Pet : override def speak(): String = "Woof" def listen(pet: Pet ): String = pet.speak() ܕΫϥε trait Pet[ P ]: extension (p: P ) def speak(): String class Cat: def speak(): String = "Meow" given Pet[ Cat ] with extension (cat: Cat) def speak(): String = cat.speak() class Dog: def speak(): String = "Woof" given Pet[ Dog ] with extension (dog: Dog) def speak(): String = dog.speak() def listen[P: Pet](pet: P ): String = pet.speak() ▶ ෦෼ܕଟ૬ vs. ύϥϝʔλଟ૬
33. ද૚Λݟൺ΂Δ OOP abstract class Pet : def speak(): String class Cat extends Pet : override def speak(): String = "Meow" class Dog extends Pet : override def speak(): String = "Woof" def listen(pet: Pet ): String = pet.speak() ܕΫϥε trait Pet[ P ]: extension (p: P ) def speak(): String class Cat: def speak(): String = "Meow" given Pet[ Cat ] with extension (cat: Cat) def speak(): String = cat.speak() class Dog: def speak(): String = "Woof" given Pet[ Dog ] with extension (dog: Dog) def speak(): String = dog.speak() def listen[P: Pet](pet: P ): String = pet.speak() ▶ ؔ܎͕ܕͷఆٛͱີ݁߹ vs. ؔ܎͕ޙ෇͚
34. ද૚Λݟൺ΂Δ OOP abstract class Pet : def speak(): String class Cat extends Pet : override def speak(): String = "Meow" class Dog extends Pet : override def speak(): String = "Woof" def listen(pet: Pet ): String = pet.speak() ܕΫϥε trait Pet[ P ]: extension (p: P ) def speak(): String class Cat: def speak(): String = "Meow" given Pet[ Cat ] with extension (cat: Cat) def speak(): String = cat.speak() class Dog: def speak(): String = "Woof" given Pet[ Dog ] with extension (dog: Dog) def speak(): String = dog.speak() def listen[P: Pet](pet: P ): String = pet.speak() ▶ ಉ໊ͰΦʔόʔϥΠυ vs. όϥόϥʹ࣮૷ (ผ໊Ͱ΋Մ)
35. ҙຯ࿦Λݟൺ΂Δ OOP abstract class Pet ( val vtable: PetMethods ) class PetMethods (val speak: Pet => String) class Cat extends Pet(CatIsPet) : def speak(): String = "Meow" val CatIsPet = PetMethods ((pet: Pet ) => pet .asInstanceOf[Cat] .speak()) class Dog extends Pet(DogIsPet) : def speak(): String = "Woof" val DogIsPet = PetMethods ((pet: Pet ) => pet .asInstanceOf[Dog] .speak()) def listen(pet: Pet ): String = pet.vtable .speak(pet) ܕΫϥε class Pet[P] (val speak: P => String) class Cat: def speak(): String = "Meow" val CatIsPet = Pet[Cat] ((cat: Cat ) => cat.speak()) class Dog: def speak(): String = "Woof" val DogIsPet = Pet[Dog] ((dog: Dog ) => dog.speak()) def listen [P] (pet: P ) (dict: Pet[P]) : String = dict .speak(pet)
36. ҙຯ࿦Λݟൺ΂Δ OOP abstract class Pet ( val vtable: PetMethods ) class PetMethods (val speak: Pet => String) class Cat extends Pet(CatIsPet) : def speak(): String = "Meow" val CatIsPet = PetMethods ((pet: Pet ) => pet .asInstanceOf[Cat] .speak()) class Dog extends Pet(DogIsPet) : def speak(): String = "Woof" val DogIsPet = PetMethods ((pet: Pet ) => pet .asInstanceOf[Dog] .speak()) def listen(pet: Pet ): String = pet.vtable .speak(pet) ܕΫϥε class Pet[P] (val speak: P => String) class Cat: def speak(): String = "Meow" val CatIsPet = Pet[Cat] ((cat: Cat ) => cat.speak()) class Dog: def speak(): String = "Woof" val DogIsPet = Pet[Dog] ((dog: Dog ) => dog.speak()) def listen [P] (pet: P ) (dict: Pet[P]) : String = dict .speak(pet) ▶ ෦෼ܕଟ૬ vs. ύϥϝʔλଟ૬
37. ҙຯ࿦Λݟൺ΂Δ OOP abstract class Pet ( val vtable: PetMethods ) class PetMethods (val speak: Pet => String) class Cat extends Pet(CatIsPet) : def speak(): String = "Meow" val CatIsPet = PetMethods ((pet: Pet ) => pet .asInstanceOf[Cat] .speak()) class Dog extends Pet(DogIsPet) : def speak(): String = "Woof" val DogIsPet = PetMethods ((pet: Pet ) => pet .asInstanceOf[Dog] .speak()) def listen(pet: Pet ): String = pet.vtable .speak(pet) ܕΫϥε class Pet[P] (val speak: P => String) class Cat: def speak(): String = "Meow" val CatIsPet = Pet[Cat] ((cat: Cat ) => cat.speak()) class Dog: def speak(): String = "Woof" val DogIsPet = Pet[Dog] ((dog: Dog ) => dog.speak()) def listen [P] (pet: P ) (dict: Pet[P]) : String = dict .speak(pet) ▶ ໊લ͕ҧ͏͚ͩ
38. ҙຯ࿦Λݟൺ΂Δ OOP abstract class Pet ( val vtable: PetMethods ) class PetMethods (val speak: Pet => String) class Cat extends Pet(CatIsPet) : def speak(): String = "Meow" val CatIsPet = PetMethods ((pet: Pet ) => pet .asInstanceOf[Cat] .speak()) class Dog extends Pet(DogIsPet) : def speak(): String = "Woof" val DogIsPet = PetMethods ((pet: Pet ) => pet .asInstanceOf[Dog] .speak()) def listen(pet: Pet ): String = pet.vtable .speak(pet) ܕΫϥε class Pet[P] (val speak: P => String) class Cat: def speak(): String = "Meow" val CatIsPet = Pet[Cat] ((cat: Cat ) => cat.speak()) class Dog: def speak(): String = "Woof" val DogIsPet = Pet[Dog] ((dog: Dog ) => dog.speak()) def listen [P] (pet: P ) (dict: Pet[P]) : String = dict .speak(pet) ▶ ஋͔ΒऔΓग़͢ vs. Ҿ਺Ͱ౉͢
39. ҙຯ࿦Λݟൺ΂Δ OOP abstract class Pet ( val vtable: PetMethods ) class PetMethods (val speak: Pet => String) class Cat extends Pet(CatIsPet) : def speak(): String = "Meow" val CatIsPet = PetMethods ((pet: Pet ) => pet .asInstanceOf[Cat] .speak()) class Dog extends Pet(DogIsPet) : def speak(): String = "Woof" val DogIsPet = PetMethods ((pet: Pet ) => pet .asInstanceOf[Dog] .speak()) def listen(pet: Pet ): String = pet.vtable .speak(pet) ܕΫϥε class Pet[P] (val speak: P => String) class Cat: def speak(): String = "Meow" val CatIsPet = Pet[Cat] ((cat: Cat ) => cat.speak()) class Dog: def speak(): String = "Woof" val DogIsPet = Pet[Dog] ((dog: Dog ) => dog.speak()) def listen [P] (pet: P ) (dict: Pet[P]) : String = dict .speak(pet) ▶ ͋ͱ͸ಉ͡!!
40. ·ͱΊ
41. ࣅ͍ͯΔͱ͜Ζ ▶ ҟͳΔܕΛ౷Ұతʹѻ͏͘͠Έ ▶ ϝιουͷࣙॻΛ࢖ͬͯݺͼ෼͚Δ
42. ҧ͏ͱ͜Ζ OOP ܕΫϥε ଟ૬ ෦෼ܕଟ૬ ύϥϝʔλଟ૬ ܕͷؔ܎ ີ݁߹ ޙ෇͚Մ ˞ ϝιου࣮૷ ಉ໊ͰΦʔόʔϥΠυ ໌ࣔతʹࢦఆ ࣙॻͷ౉͠ํ ஋ʹೖΕΔ Ҿ਺Ͱ౉͢ ࣙॻͷղܾ ಈత ੩త ˞ ͜ͷͨΊʹܕΫϥεͷΠϯελϯεղܾͷ࢓૊Έ͕ඞཁ ▶ ࿦ཧܕϓϩάϥϛϯάΈ͍ͨʹͳΔ
43. ͓ΘΓ