Commit a4dc981b authored by Luca's avatar Luca

shuffle algebra for strings

parent 6b3522c1
...@@ -21,8 +21,8 @@ PROGRAM shuffle_algebra ...@@ -21,8 +21,8 @@ PROGRAM shuffle_algebra
integer :: length integer :: length
end type word_sum end type word_sum
type(word) :: v1 = word("abcd",4) type(word) :: v1 = word("abc",3)
type(word) :: v2 = word("1234",4) type(word) :: v2 = word("123",3)
type(word) :: w1 type(word) :: w1
type(word_sum) :: ws, ws1, ws2 type(word_sum) :: ws, ws1, ws2
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment