Generated Sample Programs website automatically

on-behalf-of: @TheRenegadeCoder <jeremy.grifski@therenegadecoder.com>

Author: actions-user

docs/index.md

@@ -1,6 +1,6 @@
 ---
 date: 2018-03-15
-last-modified: 2025-10-14
+last-modified: 2025-10-15
 layout: default
 title: Sample Programs in Every Language
 ---

docs/languages/fortran/index.md

@@ -1,7 +1,7 @@
 ---
 date: 2018-04-25
 featured-image: programming-languages.jpg
-last-modified: 2025-02-16
+last-modified: 2025-10-15
 layout: default
 tags:
 - fortran

docs/languages/index.md

@@ -1,7 +1,7 @@
 ---
 date: 2018-03-15
 featured-image: programming-languages.jpg
-last-modified: 2025-10-14
+last-modified: 2025-10-15
 layout: default
 title: Programming Languages
 ---
@@ -18,43 +18,43 @@ Here are the percentages for each language in the collection:
 
     <tr>
         <td class="right nowrap">Algol68</td>
-        <td class="right">7.14%</td>
+        <td class="right">7.15%</td>
         <td class="bar-graph"><div style="width: 100.00%; background-color: #AF425E;"></div></td> 
     </tr>
 
     <tr>
         <td class="right nowrap">Commodore Basic</td>
-        <td class="right">7.05%</td>
+        <td class="right">7.06%</td>
         <td class="bar-graph"><div style="width: 98.72%; background-color: #4F44D8;"></div></td> 
     </tr>
 
     <tr>
         <td class="right nowrap">Euphoria</td>
-        <td class="right">6.24%</td>
+        <td class="right">6.25%</td>
         <td class="bar-graph"><div style="width: 87.42%; background-color: #FF790B;"></div></td> 
     </tr>
 
     <tr>
         <td class="right nowrap">Beef</td>
-        <td class="right">6.01%</td>
+        <td class="right">6.02%</td>
         <td class="bar-graph"><div style="width: 84.19%; background-color: #A52F4E;"></div></td> 
     </tr>
 
     <tr>
         <td class="right nowrap">Pascal</td>
-        <td class="right">5.09%</td>
+        <td class="right">5.10%</td>
         <td class="bar-graph"><div style="width: 71.34%; background-color: #E3F171;"></div></td> 
     </tr>
 
     <tr>
         <td class="right nowrap">Rust</td>
-        <td class="right">4.45%</td>
+        <td class="right">4.46%</td>
         <td class="bar-graph"><div style="width: 62.35%; background-color: #DEA584;"></div></td> 
     </tr>
 
     <tr>
         <td class="right nowrap">C</td>
-        <td class="right">4.41%</td>
+        <td class="right">4.42%</td>
         <td class="bar-graph"><div style="width: 61.81%; background-color: #555555;"></div></td> 
     </tr>
 
@@ -66,7 +66,7 @@ Here are the percentages for each language in the collection:
 
     <tr>
         <td class="right nowrap">C#</td>
-        <td class="right">3.92%</td>
+        <td class="right">3.93%</td>
         <td class="bar-graph"><div style="width: 54.95%; background-color: #178600;"></div></td> 
     </tr>
 
@@ -96,19 +96,19 @@ Here are the percentages for each language in the collection:
 
     <tr>
         <td class="right nowrap">Powershell</td>
-        <td class="right">2.94%</td>
+        <td class="right">2.95%</td>
         <td class="bar-graph"><div style="width: 41.20%; background-color: #012456;"></div></td> 
     </tr>
 
     <tr>
         <td class="right nowrap">Tcl</td>
-        <td class="right">2.70%</td>
+        <td class="right">2.71%</td>
         <td class="bar-graph"><div style="width: 37.84%; background-color: #E4CC98;"></div></td> 
     </tr>
 
     <tr>
         <td class="right nowrap">Java</td>
-        <td class="right">2.50%</td>
+        <td class="right">2.51%</td>
         <td class="bar-graph"><div style="width: 35.04%; background-color: #B07219;"></div></td> 
     </tr>
 
@@ -126,7 +126,7 @@ Here are the percentages for each language in the collection:
 
     <tr>
         <td class="right nowrap">Go</td>
-        <td class="right">2.07%</td>
+        <td class="right">2.08%</td>
         <td class="bar-graph"><div style="width: 29.02%; background-color: #00ADD8;"></div></td> 
     </tr>
 
@@ -156,13 +156,13 @@ Here are the percentages for each language in the collection:
 
     <tr>
         <td class="right nowrap">Perl</td>
-        <td class="right">0.93%</td>
+        <td class="right">0.94%</td>
         <td class="bar-graph"><div style="width: 13.09%; background-color: #0298C3;"></div></td> 
     </tr>
 
     <tr>
         <td class="right nowrap">X86 64</td>
-        <td class="right">0.92%</td>
+        <td class="right">0.93%</td>
         <td class="bar-graph"><div style="width: 12.95%; background-color: #6E4C13;"></div></td> 
     </tr>
 
@@ -190,12 +190,6 @@ Here are the percentages for each language in the collection:
         <td class="bar-graph"><div style="width: 10.36%; background-color: #00B4AB;"></div></td> 
     </tr>
 
-    <tr>
-        <td class="right nowrap">Fortran</td>
-        <td class="right">0.68%</td>
-        <td class="bar-graph"><div style="width: 9.52%; background-color: #4D41B1;"></div></td> 
-    </tr>
-
     <tr>
         <td class="right nowrap">Unicat</td>
         <td class="right">0.66%</td>
@@ -222,7 +216,7 @@ Here are the percentages for each language in the collection:
 
     <tr>
         <td class="right nowrap">Ruby</td>
-        <td class="right">0.59%</td>
+        <td class="right">0.60%</td>
         <td class="bar-graph"><div style="width: 8.33%; background-color: #701516;"></div></td> 
     </tr>
 
@@ -232,6 +226,12 @@ Here are the percentages for each language in the collection:
         <td class="bar-graph"><div style="width: 8.19%; background-color: #000080;"></div></td> 
     </tr>
 
+    <tr>
+        <td class="right nowrap">Fortran</td>
+        <td class="right">0.55%</td>
+        <td class="bar-graph"><div style="width: 7.69%; background-color: #4D41B1;"></div></td> 
+    </tr>
+
     <tr>
         <td class="right nowrap">Cobol</td>
         <td class="right">0.45%</td>
@@ -804,7 +804,7 @@ Here are the percentages for each language in the collection:
 
     <tr>
         <td class="right nowrap">Spry</td>
-        <td class="right">0.02%</td>
+        <td class="right">0.03%</td>
         <td class="bar-graph"><div style="width: 0.35%; background-color: #4451B5;"></div></td> 
     </tr>
 

docs/projects/fibonacci/fortran/index.md

@@ -1,9 +1,10 @@
 ---
 authors:
 - Butenkite
+- "\u0218tefan-Iulian Alecu"
 date: 2025-02-16
 featured-image: fibonacci-in-every-language.jpg
-last-modified: 2025-02-16
+last-modified: 2025-10-15
 layout: default
 tags:
 - fibonacci
@@ -29,68 +30,58 @@ Welcome to the [Fibonacci](https://sampleprograms.io/projects/fibonacci) in [For
 {% raw %}
 
 ```fortran
-! In program name, - is not allowed
-! works until 184 (Stop is not implemented)
 program fibonacci
-
-! Create the variables
-character(26) :: low = 'abcdefghijklmnopqrstuvwxyz'                 ! Defines all lowercase letters. This is used to later scan for letters in the input as a test.
-character(26) :: cap = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'                 ! Defines all uppercase letters. This is used to later scan for letters in the input as a test.
-integer(kind = 16) :: previousnumber, currentnumber, addednumber, uppers, lowers, loop
-character(len=10) :: argument                                      ! Defines the object we will be recieving. It will arrive as a charcters as the expectation is keyboard input.
-                                                                   ! Fortran knows that 'argument' is user input, so we never need to set it to anything
-
-! Define variables.
-previousnumber = 0
-currentnumber = 1
-addednumber = 0
-
-IF(COMMAND_ARGUMENT_COUNT().NE.1)THEN
-    write(*,'(g0.8)')"Usage: please input the count of fibonacci numbers to output"
-    STOP
-ENDIF
-  
-CALL GET_COMMAND_ARGUMENT(1,argument)
-    if (argument == "") then
-    write(*,'(g0.8)')"Usage: please input the count of fibonacci numbers to output"
-    STOP
-endif
-
-! Tests to make sure we have recieved NUMBERS and not anything else. These act as flags that will later end the program.
-uppers = scan(argument, cap)    ! This will look for uppercase letters in the recieved string. If any letter is uppercase, uppers will be updated.
-lowers = scan(argument, low)    ! This will look for lowercase letters in the recieved string. If any letter is lowercase, lowers will be updated.
-
-! Will see if there are any uppercase, if so, print an error.
-if (uppers > 0) then            
-  write(*,'(g0.8)')"Usage: please input the count of fibonacci numbers to output"
-  STOP
-endif
-
-! Will see if there are any lowercase, if so, print an error.
-if (lowers > 0) then            
-  write(*,'(g0.8)')"Usage: please input the count of fibonacci numbers to output"
-  STOP
-endif
-
-
-! If all checks pass, we will enter this section.  If non pass, we will not reach this point
-! Enter a loop
-read (argument, '(I10)') loop
-do i = 1, loop
-    write(*,'(5g0)') i, ": ", currentnumber         ! Print current iteration, and current number
-    addednumber = previousnumber + currentnumber    ! Replace the value of 'added number' with both 'current number' and 'previous number'
-    previousnumber = currentnumber                  ! Replace the value of 'previous number' with 'current number'
-    currentnumber = addednumber                     ! Replace the value of 'current number' with 'added number'
-end do
+   implicit none
+   integer(kind=8) :: prev, curr, next, n, i
+   character(len=32) :: arg
+   integer :: ios
+
+   if (command_argument_count() /= 1) then
+      call usage()
+      return
+   endif
+
+   call get_command_argument(1, arg)
+   arg = adjustl(trim(arg))
+   if (len_trim(arg) == 0) then
+      call usage()
+      return
+   endif
+
+   read(arg, *, iostat=ios) n
+   if (ios /= 0 .or. n < 0) then
+      call usage()
+      return
+   endif
+
+   if (n == 0) return
+
+   prev = 0
+   curr = 1
+
+   do i = 1, n
+      write(*,'(I0,": ",I0)') i, curr
+      next = prev + curr
+      prev = curr
+      curr = next
+   end do
+
+contains
+
+   subroutine usage()
+      write(*,'(A)') "Usage: please input the count of fibonacci numbers to output"
+   end subroutine usage
 
 end program fibonacci
+
 ```
 
 {% endraw %}
 
 Fibonacci in [Fortran](https://sampleprograms.io/languages/fortran) was written by:
 
 - Butenkite
+- Ștefan-Iulian Alecu
 
 If you see anything you'd like to change or update, [please consider contributing](https://github.com/TheRenegadeCoder/sample-programs).
 

docs/projects/fibonacci/index.md

@@ -1,7 +1,7 @@
 ---
 date: 2018-10-02
 featured-image: fibonacci-in-every-language.jpg
-last-modified: 2025-10-08
+last-modified: 2025-10-15
 layout: default
 tags:
 - fibonacci

docs/projects/index.md

@@ -1,7 +1,7 @@
 ---
 date: 2018-03-15
 featured-image: programming-projects-in-every-language.jpg
-last-modified: 2025-10-14
+last-modified: 2025-10-15
 layout: default
 title: Programming Projects in Every Language
 ---