Initial data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · f23f22d71c
commit f23f22d71c
parent 72d218235f
199087 changed files with 3378941 additions and 0 deletions
--- a/Task/Execute-a-Markov-algorithm/APL/execute-a-markov-algorithm.apl
+++ b/Task/Execute-a-Markov-algorithm/APL/execute-a-markov-algorithm.apl
@ -0,0 +1,20 @@
+markov←{
+    trim←{(~(∧\∨⌽∘(∧\)∘⌽)⍵∊⎕UCS 9 32)/⍵}
+    rules←(~rules∊⎕UCS 10 13)⊆rules←80 ¯1 ⎕MAP ⍺
+    rules←('#'≠⊃¨rules)/rules
+    rules←{
+        norm←' '@(9=⎕UCS)⊢⍵
+        spos←⍸' -> '⍷norm
+        pat←trim spos↑⍵
+        repl←trim(spos+2)↓⍵
+        term←'.'=⊃repl
+        term pat(term↓repl)
+    }¨rules
+    apply←{
+        0=⍴rule←⍸∨/¨(2⊃¨⍺)⍷¨⊂⍵:⍵
+        term pat repl←⊃⍺[⊃rule]
+        idx←(⊃⍸pat⍷⍵)-1
+        ⍺ ∇⍣(~term)⊢(idx↑⍵),repl,(idx+≢pat)↓⍵
+    }
+    rules apply ⍵
+}