_argmin ← {
 ⊏(⌊´⊸⍷𝔽˘)⊸/𝕩 
}

Rand ← {
 s ← •rand.Range⊸÷ 128
 s⋆𝕨‿𝕩⥊•rand.Deal (𝕨×𝕩)
}

pso ← {
  d ← 2
  n ← 4
  steps ← 100
  F ← {+´𝕩}
  data ← {
    x ⇐ n Rand d
    v ⇐ n Rand d
    p ⇐ x
  }
  p_glob ← F _argmin data.p

  Pso_step ← {
   # todo
   v ⇐ 𝕩.v
   x ⇐ 𝕩.x
  }
  r ← Pso_step⍟steps data
  r.x
}