UnkDevE

set nocompatible            " disable compatibility to old-time vi
set showmatch               " show matching 
set ignorecase              " case insensitive 
set mouse=v                 " middle-click paste with 
set hlsearch                " highlight search 
set incsearch               " incremental search
set tabstop=4               " number of columns occupied by a tab 
set softtabstop=4           " see multiple spaces as tabstops so <BS> does the right thing
set expandtab               " converts tabs to white space
set shiftwidth=4            " width for autoindents

UnkDevE

(defn rand-point
  ([(rand-int q/width) (rand-int q/height)]))

(defn apply-math [mathfn a b]
  ([(mathfn (first a) (first b)) (mathfn (second a) (second b))]))

(defn find-rs [line]
  (apply-math - (second line) (first line)))

(defn range01 [point]

UnkDevE

centroids: [(1,1,1),(1,1,1),(1,1,1)]
centroids: [(1,1,1),(0,0,0),(0,0,0)]
operation complete