Advertisement
Guest User

Untitled

a guest
Jan 13th, 2012
40
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.29 KB | None | 0 0
  1. Interface ja luokka, sama toiminnallisuus,
  2. demottaa vain rakennetta, joten leikattu poikki keskeneräiseksi.
  3. (F#-luokan voi testata interactivena keskeneräisenäkin ja se toimii)
  4. Tasapuolisuuden nimissä pastesta syntax highlight off.
  5.  
  6. //----------------------------------------------------------
  7. //Java:
  8. interface Animal {
  9. public boolean isAlive( );
  10. }
  11.  
  12. abstract class AbstractAnimal implements Animal{
  13. private final Maze maze;
  14. private final int minThinkTime;
  15. private final int maxThinkTime;
  16. public AbstractAnimal( Maze maze ) {
  17. this( maze,100,1000 );
  18. }
  19. public AbstractAnimal( Maze maze,int minThinkTime,int maxThinkTime ) {
  20. this.maze = maze;
  21. this.minThinkTime = minThinkTime;
  22. this.maxThinkTime = maxThinkTime;
  23. }
  24.  
  25. public boolean isAlive( ) {
  26. return ! terminated;
  27. }
  28.  
  29. //----------------------------------------------------------
  30. //F#:
  31. type Animal =
  32. abstract member isAlive : bool
  33.  
  34. type AbstractAnimal(mymaze, minThinkTime, maxThinkTime) =
  35. new(mmaze) = AbstractAnimal(mmaze,100,1000)
  36. member x.maze = mymaze
  37. member x.minThinkTime = minThinkTime
  38. member x.maxThinkTime = maxThinkTime
  39. interface Animal with
  40. member x.isAlive = not terminated
  41.  
  42. //----------------------------------------------------------
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52. //
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement