diff --git a/components/prism-apl.js b/components/prism-apl.js index 1e4f3f94fb..b87451cf0d 100644 --- a/components/prism-apl.js +++ b/components/prism-apl.js @@ -17,7 +17,7 @@ Prism.languages.apl = { alias: 'operator' }, 'dyadic-operator': { - pattern: /[.⍣⍠⍤∘⌸@⌺]/, + pattern: /[.⍣⍠⍤∘⌸@⌺⍥]/, alias: 'operator' }, 'assignment': { @@ -29,4 +29,4 @@ Prism.languages.apl = { pattern: /[{}⍺⍵⍶⍹∇⍫:]/, alias: 'builtin' } -}; \ No newline at end of file +}; diff --git a/components/prism-apl.min.js b/components/prism-apl.min.js index e1c6b5466a..2607b68ea7 100644 --- a/components/prism-apl.min.js +++ b/components/prism-apl.min.js @@ -1 +1 @@ -Prism.languages.apl={comment:/(?:⍝|#[! ]).*$/m,string:{pattern:/'(?:[^'\r\n]|'')*'/,greedy:!0},number:/¯?(?:\d*\.?\d+(?:e[+¯]?\d+)?|¯|∞)(?:j¯?(?:\d*\.?\d+(?:e[+¯]?\d+)?|¯|∞))?/i,statement:/:[A-Z][a-z][A-Za-z]*\b/,"system-function":{pattern:/⎕[A-Z]+/i,alias:"function"},constant:/[⍬⌾#⎕⍞]/,function:/[-+×÷⌈⌊∣|⍳⍸?*⍟○!⌹<≤=>≥≠≡≢∊⍷∪∩~∨∧⍱⍲⍴,⍪⌽⊖⍉↑↓⊂⊃⊆⊇⌷⍋⍒⊤⊥⍕⍎⊣⊢⍁⍂≈⍯↗¤→]/,"monadic-operator":{pattern:/[\\\/⌿⍀¨⍨⌶&∥]/,alias:"operator"},"dyadic-operator":{pattern:/[.⍣⍠⍤∘⌸@⌺]/,alias:"operator"},assignment:{pattern:/←/,alias:"keyword"},punctuation:/[\[;\]()◇⋄]/,dfn:{pattern:/[{}⍺⍵⍶⍹∇⍫:]/,alias:"builtin"}}; \ No newline at end of file +Prism.languages.apl={comment:/(?:⍝|#[! ]).*$/m,string:{pattern:/'(?:[^'\r\n]|'')*'/,greedy:!0},number:/¯?(?:\d*\.?\d+(?:e[+¯]?\d+)?|¯|∞)(?:j¯?(?:\d*\.?\d+(?:e[+¯]?\d+)?|¯|∞))?/i,statement:/:[A-Z][a-z][A-Za-z]*\b/,"system-function":{pattern:/⎕[A-Z]+/i,alias:"function"},constant:/[⍬⌾#⎕⍞]/,function:/[-+×÷⌈⌊∣|⍳⍸?*⍟○!⌹<≤=>≥≠≡≢∊⍷∪∩~∨∧⍱⍲⍴,⍪⌽⊖⍉↑↓⊂⊃⊆⊇⌷⍋⍒⊤⊥⍕⍎⊣⊢⍁⍂≈⍯↗¤→]/,"monadic-operator":{pattern:/[\\\/⌿⍀¨⍨⌶&∥]/,alias:"operator"},"dyadic-operator":{pattern:/[.⍣⍠⍤∘⌸@⌺⍥]/,alias:"operator"},assignment:{pattern:/←/,alias:"keyword"},punctuation:/[\[;\]()◇⋄]/,dfn:{pattern:/[{}⍺⍵⍶⍹∇⍫:]/,alias:"builtin"}}; \ No newline at end of file diff --git a/tests/languages/apl/dyadic-operator_feature.test b/tests/languages/apl/dyadic-operator_feature.test index bd141edef6..cec61b4f55 100644 --- a/tests/languages/apl/dyadic-operator_feature.test +++ b/tests/languages/apl/dyadic-operator_feature.test @@ -1,15 +1,15 @@ . ⍣ ⍠ ⍤ ∘ ⌸ -@ ⌺ +@ ⌺ ⍥ ---------------------------------------------------- [ ["dyadic-operator", "."], ["dyadic-operator", "⍣"], ["dyadic-operator", "⍠"], ["dyadic-operator", "⍤"], ["dyadic-operator", "∘"], ["dyadic-operator", "⌸"], - ["dyadic-operator", "@"], ["dyadic-operator", "⌺"] + ["dyadic-operator", "@"], ["dyadic-operator", "⌺"], ["dyadic-operator", "⍥"] ] ---------------------------------------------------- -Checks for dyadic operators. \ No newline at end of file +Checks for dyadic operators.