2 lines
78 B
Forth
2 lines
78 B
Forth
integer :: i
|
|
integer, dimension (10), parameter :: a = (/(i * i, i = 1, 10)/)
|
integer :: i
|
|
integer, dimension (10), parameter :: a = (/(i * i, i = 1, 10)/)
|