3
0

bc_references.bc 1.1 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106
  1. define printarray(a[], len) {
  2. auto i
  3. for (i = 0; i < len; ++i) {
  4. a[i]
  5. }
  6. }
  7. define a2(a[], len) {
  8. auto i
  9. for (i = 0; i < len; ++i) {
  10. a[i] = a[i] * a[i]
  11. }
  12. printarray(a[], len)
  13. }
  14. define a4(a__[], len) {
  15. auto i
  16. for (i = 0; i < len; ++i) {
  17. a__[i] = a__[i] * a__[i]
  18. }
  19. printarray(a__[], len)
  20. }
  21. define a6(*a__[], len) {
  22. auto i
  23. for (i = 0; i < len; ++i) {
  24. a__[i] = a__[i] * a__[i]
  25. }
  26. printarray(a__[], len)
  27. }
  28. define a1(*a[], len) {
  29. auto i
  30. for (i = 0; i < len; ++i) {
  31. a[i] = i
  32. }
  33. a2(a[], len)
  34. printarray(a[], len)
  35. }
  36. define a3(*a__[], len) {
  37. auto i
  38. for (i = 0; i < len; ++i) {
  39. a__[i] = i
  40. }
  41. a4(a__[], len)
  42. printarray(a__[], len)
  43. }
  44. define a5(*a__[], len) {
  45. auto i
  46. for (i = 0; i < len; ++i) {
  47. a__[i] = i
  48. }
  49. a2(a__[], len)
  50. printarray(a__[], len)
  51. }
  52. define a7(*a__[], len) {
  53. auto i
  54. for (i = 0; i < len; ++i) {
  55. a__[i] = i
  56. }
  57. a6(a__[], len)
  58. printarray(a__[], len)
  59. }
  60. len = 16
  61. a1(a[], len)
  62. printarray(a[], len)
  63. a3(a[], len)
  64. printarray(a[], len)
  65. a5(a[], len)
  66. printarray(a[], len)
  67. a7(a[], len)
  68. printarray(a[], len)
  69. halt