3
0

bc_array.bc 283 B

1234567891011121314151617181920212223242526272829303132333435
  1. #! /usr/bin/bc -q
  2. define z(a[]) {
  3. for (i = 0; i < l; ++i) {
  4. a[i]
  5. }
  6. }
  7. define x(a[]) {
  8. for (i = 0; i < l; ++i) {
  9. a[i] = -i
  10. }
  11. z(a[])
  12. }
  13. for (i = 0; i < 101; ++i) {
  14. a[i] = i
  15. }
  16. a[104] = 204
  17. l = length(a[])
  18. for (i = 0; i <= l; ++i) {
  19. a[i]
  20. }
  21. z(a[])
  22. x(a[])
  23. z(a[])
  24. l
  25. halt