June 2018 Update

Task/File-size/AWK/file-size-2.awk

@@ -1,18 +1,12 @@
 BEGIN {
 
          # Windows
-          out = system2var("for %I in (input.txt) do @echo %~zI")
-          printf("input.txt\t%s\n", out)
-          out = system2var("for %I in (\input.txt) do @echo %~zI")
-          printf("\input.txt\t%s\n", out)
+          printf("input.txt\t%s\n", system2var("for %I in (input.txt) do @echo %~zI"))
+          printf("\input.txt\t%s\n", system2var("for %I in (\input.txt) do @echo %~zI"))
 
          # Non-Windows
-          out = getline2var("ls -l input.txt")
-          split(out, size, " ")
-          printf("input.txt\t%s\n", size[5])
-          out = getline2var("ls -l /input.txt")
-          split(out, size, " ")
-          printf("/input.txt\t%s\n", size[5])
+          printf("input.txt\t%s\n", getline2var("stat --printf=\"%s\" input.txt"))
+          printf("/input.txt\t%s\n", getline2var("stat --printf=\"%s\" /input.txt"))
 }
 
 # Windows system() method

Task/File-size/Fortran/file-size-1.f

@@ -0,0 +1,9 @@
+    use :: iso_fortran_env, only : FILE_STORAGE_SIZE
+    implicit none
+    character(len=*),parameter :: filename(*)=[character(len=256) :: 'input.txt', '/input.txt']
+    integer                    :: file_size, i
+    do i=1,size(filename)
+       INQUIRE(FILE=filename(i), SIZE=file_size)  ! return -1 if cannot determine file size
+       write(*,*)'size of file '//trim(filename(i))//' is ',file_size * FILE_STORAGE_SIZE /8,' bytes'
+    enddo
+    end

Task/File-size/Red/file-size.red

@@ -0,0 +1,4 @@
+>> size? %input.txt
+== 39244
+>> size? %/c/input.txt
+== 39244