Mercurial > rlm
view src/rlm/routing.clj @ 0:78a630e650d2
initial import
| author | Robert McIntyre <rlm@mit.edu> |
|---|---|
| date | Tue, 18 Oct 2011 00:57:08 -0700 |
| parents | |
| children |
line wrap: on
line source
1 (ns rlm.routing)3 (def nums4 [[6395 3356 3 ]5 [6395 3356 3 ]6 [1224 22335 11537 10578 3 ]7 [6461 3356 3 ]8 [2497 3356 3 ]9 [4513 3356 3 ]10 [3549 174 16631 3 3 3 ]11 [8001 1784 10578 3 ]12 [4513 3356 3 ]13 [4513 3356 3 ]14 [4513 3356 3 ]15 [11537 10578 3 ]16 [4181 174 174 174 16631 3 3 3 ]17 [5459 2649 174 174 174 16631 3 3 3 ]18 [5459 2649 174 174 174 16631 3 3 3 ]19 [4181 174 174 174 16631 3 3 3 ]20 [3277 8482 29281 702 701 3356 3 ]21 [6079 10578 3 ]22 [6079 10578 3 ]23 [2914 174 16631 3 3 3 ]24 [10764 11537 10578 3 ]25 [8434 3257 3356 3 ]26 [1668 3356 3 ]27 [3561 3356 3 ]28 [174 16631 3 3 3 ]29 [174 16631 3 3 3 ]30 [14608 19029 3356 3 ]31 [2497 3356 3 ]32 [3356 3 ]33 [5056 1239 3356 3 ]34 [7911 3356 3 ]35 [6453 3356 3 ]36 [3356 3 ]37 [9942 16631 174 174 174 16631 3 3 3 ]38 [3257 3356 3 ]39 [6939 3356 3 ]40 [6539 174 16631 3 3 3 ]41 [6939 3356 3 ]42 [3292 3356 3 ]43 [2828 174 16631 3 3 3 ]44 [6453 3356 3 ]45 [11608 6461 3356 3 ]46 [8075 174 16631 3 3 3 ]47 [2914 174 16631 3 3 3 ]48 [293 11537 10578 3 ]49 [3333 3356 3 ]50 [6395 3356 3 ]51 [11537 10578 3 ]52 [7911 3356 3 ]53 [2905 701 3356 3 ]54 [852 174 16631 3 3 3 ]55 [286 209 3356 3 ]56 [12956 174 16631 3 3 3 ]57 [3303 3356 3 ]58 [1299 3356 3 ]59 [852 174 16631 3 3 3 ]60 [3356 3 ]61 [267 2914 174 16631 3 3 3 ]62 [2493 3602 174 16631 3 3 3 ]63 [5511 3356 3 ]64 [1221 4637 3356 3 ]65 [7018 3356 3 ]66 [1239 3356 3 ]])68 (set (map first (map (partial take-last 2) nums) ))70 ;; returns #{3 10578 3356}