diff options
| author | Abigail <abigail@abigail.be> | 2021-03-15 15:15:49 +0100 |
|---|---|---|
| committer | Abigail <abigail@abigail.be> | 2021-03-15 20:21:46 +0100 |
| commit | 4683307c03fd8a99c0cb6ae7400db498f10a9dfe (patch) | |
| tree | d77e5a8282506cfdab6d133332c0c94dff1d0aa1 | |
| parent | 2c25799f474f9ee527ad021cc0f13a2ef91234ce (diff) | |
| download | perlweeklychallenge-club-4683307c03fd8a99c0cb6ae7400db498f10a9dfe.tar.gz perlweeklychallenge-club-4683307c03fd8a99c0cb6ae7400db498f10a9dfe.tar.bz2 perlweeklychallenge-club-4683307c03fd8a99c0cb6ae7400db498f10a9dfe.zip | |
Fortran solution for week 104, part 1
| -rw-r--r-- | challenge-104/abigail/README.md | 1 | ||||
| -rw-r--r-- | challenge-104/abigail/fortran/ch-1.f90 | 14 |
2 files changed, 15 insertions, 0 deletions
diff --git a/challenge-104/abigail/README.md b/challenge-104/abigail/README.md index 17bcb41f68..bb367b0619 100644 --- a/challenge-104/abigail/README.md +++ b/challenge-104/abigail/README.md @@ -26,6 +26,7 @@ even handle a single if statement. A single print statement is enough. * [Befunge-93](befunge-93/ch-1.bf93) * [bc](bc/ch-1.bc) * [C](c/ch-1.c) +* [Fortran](fortran/ch-1.f90) * [Lua](lua/ch-1.lua) * [Node.js](node/ch-1.js) * [Perl](perl/ch-1.pl) diff --git a/challenge-104/abigail/fortran/ch-1.f90 b/challenge-104/abigail/fortran/ch-1.f90 new file mode 100644 index 0000000000..07ddd3f569 --- /dev/null +++ b/challenge-104/abigail/fortran/ch-1.f90 @@ -0,0 +1,14 @@ +! +! See ../README.md +! + +! +! Run as: gfortran -o ch-1.o ch-1.f90; ./ch-1.o +! + +program fucs + implicit none + write(*,fmt="(A)", advance='no') "0 1 1 2 1 3 2 3 1 4 3 5 2 5 3 4 1 5 " + write(*,fmt="(A)", advance='no') "4 7 3 8 5 7 2 7 5 8 3 7 4 5 1 6 5 9 " + write(*,fmt="(A)", advance='yes') "4 11 7 10 3 11 8 13 5 12 7 9 2 9" +end |