diff options
author | stderr64 <stderr64@null.net> | 2024-10-24 23:04:43 +0300 |
---|---|---|
committer | stderr64 <stderr64@null.net> | 2024-10-24 23:04:43 +0300 |
commit | ab607fc39b6dfc766f7481c33e5f1cf35a2f55d9 (patch) | |
tree | 56317bc3756fa1439f748fda422996c526a76b14 /bigarray/bigarray.pl | |
download | experiments-ab607fc39b6dfc766f7481c33e5f1cf35a2f55d9.tar.gz experiments-ab607fc39b6dfc766f7481c33e5f1cf35a2f55d9.tar.zst |
Recreated repository
Diffstat (limited to 'bigarray/bigarray.pl')
-rwxr-xr-x | bigarray/bigarray.pl | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/bigarray/bigarray.pl b/bigarray/bigarray.pl new file mode 100755 index 0000000..6e662f1 --- /dev/null +++ b/bigarray/bigarray.pl @@ -0,0 +1,21 @@ +#!/usr/bin/perl +use POSIX; + +my @bigarray = (); + +my $acount = 0; + +for ( ; $acount < 500000; $acount++ ){ + push( @bigarray, $acount ); +} + +$acount = 0; + +for ( ; $acount < 500000; $acount++ ){ + print( $bigarray[$acount]."\n" ); +} + +undef $acount; +undef @bigarray; + +exit( 0 ); |