structs.qlw 552 B

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748
  1. class Vec
  2. x: Integer
  3. y: Integer
  4. yuhu: Integer do
  5. //x := 123
  6. return x
  7. //return 123
  8. end
  9. increment_both do
  10. x := x + 1
  11. y := y + 1
  12. end
  13. inner_product: Integer do
  14. return x * x + y * y
  15. end
  16. get_sum: Integer do
  17. return x + y
  18. end
  19. end
  20. create_vec: Vec do
  21. var: Vec
  22. var := new Vec
  23. var.x := 3
  24. var.y := 4
  25. return var
  26. end
  27. main: Integer do
  28. var: Vec
  29. //var.x := 3
  30. //var.y := 4
  31. var := create_vec
  32. return var.inner_product
  33. end