RosettaCodeData/Task/Earliest-difference-between-prime-gaps/Uiua/earliest-difference-between-prime-gaps.uiua

Lim  ← 2000000
Lims ← ⍢(⊸×10|<Lim)10
▽⊸≡(=⊣⊸°/×)↘2⇡Lim        # primes
⊕⊢⊛⊸≡⊢⊏⍏⊸≡⊢⍉⊟⊙(↘¯1)⊸⧈₂/- # [gap first-prime]
# Note that negative differences are considered valid so use ⌵ abs.
⍉⬚∞⊂⊙⍉⊸⧈₂(⌵⊣/-)            # [gap-of-gaps gap first-prime]
⊸≡⌞(⊏˜⊟⊸+1˜⨂1⤚≡(<⊢)) ⊙Lims # result
≡(
  ⊃($"   Difference: _"⊣/-
  | $"_ and _"∩°□°⊟≡(□$"_(_)_"⊃(⊣|⊡1|/+↙¯2)))
  $"_ between _"
  &p$"Distance between adjacent prime gaps > _:\n_"⊃⋅∘∘
)