shuffle algebra for strings

a4dc981b · Luca · 6b3522c1 · a4dc981b
Commit a4dc981b authored Apr 25, 2019 by Luca
Show whitespace changes
Inline Side-by-side

Showing with 2 additions and 2 deletions

shuffle_algebra.f90 shuffle_algebra.f90 +2 -2

No files found.
--- a/shuffle_algebra.f90
+++ b/shuffle_algebra.f90
@@ -21,8 +21,8 @@ PROGRAM shuffle_algebra
    integer :: length
  end type word_sum

-  type(word) :: v1 = word("abcd",4)
-  type(word) :: v2 = word("1234",4)
+  type(word) :: v1 = word("abc",3)
+  type(word) :: v2 = word("123",3)
  type(word) :: w1
  type(word_sum) :: ws, ws1, ws2