Advertisement
Guest User

Untitled

a guest
Oct 17th, 2019
106
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 10.34 KB | None | 0 0
  1. > =find-time |= hay=*
  2. =- %+ turn
  3. %+ sort ~(tap by result)
  4. |= [[a=@ @] [b=@ @]]
  5. ?. =('~' (end 3 1 a))
  6. &
  7. ?. =('~' (end 3 1 b))
  8. |
  9. (lth (slav %da a) (slav %da b))
  10. |= [key=@t val=@ud]
  11. [key (xeb val)]
  12. |- ^- [result=(map @t @ud) count=@]
  13. ?@ hay
  14. =/ size (met 3 hay)
  15. ?: ?& (gte size 24)
  16. (lte size 27)
  17. ==
  18. ~& > "found {(trip hay)}"
  19. [(malt hay^1 ~) 1]
  20. [~ 1]
  21. ~+
  22. =/ res-a $(hay -.hay)
  23. =/ res-b $(hay +.hay)
  24. :- %- ~(uni by (~(uni by result.res-a) result.res-b))
  25. %- ~(urn by (~(int by result.res-a) result.res-b))
  26. |= [key=@ b=@ud]
  27. (add b (~(got by result.res-a) key))
  28. (add count.res-a count.res-b)
  29.  
  30. > =arms =/(muk !>(..musk) (turn (sloe -.muk) |=(=term [term +<:q:(~(mint ut -.muk) %noun [%limb term])])))
  31.  
  32. (turn ;;((list [term @]) arms) |=([=term axis=@ud] [term (find-time .*(..musk [0 axis]))]))
  33.  
  34. ~[
  35. [%ring ~]
  36. [%reck ~]
  37. [%recipe ~]
  38. [%xdat ~]
  39. [%traverse-set ~]
  40. [%flan ~]
  41. [%seem ~]
  42. [%xsell ~]
  43. [%ap ~]
  44. [%ximage ~]
  45. [%xbat ~]
  46. [%xskol ~]
  47. [%mart ~]
  48. [ %us
  49. ~[
  50. ['battery-spec-to-plum-list' 4]
  51. ['indent-pattern-violation' 3]
  52. ['chapters-to-plum-verbose' 4]
  53. ['decorate-ximage-with-xroles' 4]
  54. ['decorate-ximage-with-xpats' 4]
  55. ['decorate-ximage-with-loops' 4]
  56. ]
  57. ]
  58. [%hint ~]
  59. [%cell ~]
  60. [%skol ~]
  61. [%pi-heck ~]
  62. [%pi-mumm ~]
  63. [ %libxray
  64. ~[
  65. ['battery-spec-to-plum-list' 1.423]
  66. ['indent-pattern-violation' 1.428]
  67. ['chapters-to-plum-verbose' 1.423]
  68. ['decorate-ximage-with-xroles' 1.423]
  69. ['decorate-ximage-with-xpats' 1.423]
  70. ['decorate-ximage-with-loops' 1.423]
  71. ['~2019.6.27..23.51.23..1fcc' 1.258]
  72. ['~2019.6.28..00.52.33..52b0' 1.248]
  73. ['~2019.6.28..00.56.45..6c73' 1.239]
  74. ['~2019.7.3..10.45.31..45f5' 1.219]
  75. ['~2019.7.3..18.00.01..87e8' 1.200]
  76. ['~2019.7.3..19.30.19..84a0' 1.180]
  77. ['~2019.7.3..22.50.29..206b' 1.161]
  78. ['~2019.7.3..23.31.48..c7b9' 1.141]
  79. ['~2019.7.4..00.03.56..3ebb' 1.122]
  80. ['~2019.7.4..06.42.19..1716' 1.103]
  81. ['~2019.7.4..07.11.50..96c9' 1.083]
  82. ['~2019.7.5..21.44.36..50af' 1.064]
  83. ['~2019.7.10..09.35.39..c44b' 1.044]
  84. ['~2019.7.12..00.01.38..2a94' 1.025]
  85. ['~2019.7.12..00.36.25..d996' 1.005]
  86. ['~2019.7.12..06.33.06..6a1d' 986]
  87. ['~2019.7.15..18.41.16..b43f' 966]
  88. ['~2019.7.16..05.52.56..ea38' 947]
  89. ['~2019.7.16..06.05.15..b0af' 937]
  90. ['~2019.7.16..11.16.44..caab' 918]
  91. ['~2019.7.16..12.18.05..3d0e' 898]
  92. ['~2019.7.17..19.57.42..513b' 889]
  93. ['~2019.7.17..20.32.32..cacb' 869]
  94. ['~2019.7.18..22.21.08..0e9f' 859]
  95. ['~2019.7.19..00.10.33..ffc4' 840]
  96. ['~2019.7.22..18.08.18..b3a2' 820]
  97. ['~2019.7.27..01.37.40..5ef6' 811]
  98. ['~2019.8.2..01.20.08..4134' 791]
  99. ['~2019.8.9..21.18.31..dc83' 782]
  100. ['~2019.8.10..21.15.46..94f7' 762]
  101. ['~2019.8.12..14.16.29..4cfb' 752]
  102. ['~2019.8.22..20.07.03..de76' 733]
  103. ['~2019.8.25..03.17.13..612e' 713]
  104. ['~2019.8.25..03.25.57..5160' 704]
  105. ['~2019.8.25..06.09.11..2829' 694]
  106. ['~2019.8.25..07.25.12..cd95' 684]
  107. ['~2019.8.25..07.32.08..a326' 675]
  108. ['~2019.8.25..07.55.26..21e7' 665]
  109. ['~2019.8.25..08.29.26..e9a1' 655]
  110. ['~2019.8.25..08.49.57..37e0' 645]
  111. ['~2019.8.25..09.08.19..5ec8' 636]
  112. ['~2019.8.25..09.16.03..a8a7' 626]
  113. ['~2019.8.26..17.48.46..fc0f' 616]
  114. ['~2019.8.26..17.59.07..e354' 606]
  115. ['~2019.8.27..10.12.22..bdf8' 597]
  116. ['~2019.8.27..11.01.21..7ddc' 577]
  117. ['~2019.8.29..20.01.47..746b' 558]
  118. ['~2019.8.30..00.03.20..1533' 538]
  119. ['~2019.9.6..01.55.23..00bf' 529]
  120. ['~2019.9.9..17.45.28..faad' 509]
  121. ['~2019.9.9..18.47.11..f996' 490]
  122. ['~2019.9.9..19.32.20..94bc' 471]
  123. ['~2019.9.9..20.20.39..5d9c' 456]
  124. ['~2019.9.11..03.14.51..4405' 441]
  125. ['~2019.9.11..04.01.47..c26b' 426]
  126. ['~2019.9.11..05.10.35..61ba' 411]
  127. ['~2019.9.11..05.48.08..1609' 396]
  128. ['~2019.9.11..06.15.48..441a' 381]
  129. ['~2019.9.11..06.42.55..d2f5' 366]
  130. ['~2019.9.11..07.16.25..9336' 351]
  131. ['~2019.9.11..07.49.20..b3df' 336]
  132. ['~2019.9.11..17.38.18..093e' 321]
  133. ['~2019.9.18..15.50.31..19a9' 306]
  134. ['~2019.9.27..11.55.43..cd9c' 291]
  135. ['~2019.9.27..12.18.16..5832' 276]
  136. ['~2019.9.27..12.26.57..46cd' 269]
  137. ['~2019.9.27..20.07.29..4b3d' 261]
  138. ['~2019.9.29..17.17.29..18e1' 246]
  139. ['~2019.9.29..18.26.55..e602' 239]
  140. ['~2019.9.29..21.49.42..1407' 231]
  141. ['~2019.10.1..22.08.56..393f' 216]
  142. ['~2019.10.3..20.08.15..89de' 201]
  143. ['~2019.10.3..21.43.13..8957' 186]
  144. ['~2019.10.4..21.03.52..5fb2' 171]
  145. ['~2019.10.4..21.57.14..1a15' 157]
  146. ['~2019.10.5..12.22.34..85ef' 142]
  147. ['~2019.10.7..06.57.30..8707' 134]
  148. ['~2019.10.8..08.15.44..c619' 127]
  149. ['~2019.10.10..05.40.19..622e' 112]
  150. ['~2019.10.10..05.50.55..ac68' 104]
  151. ['~2019.10.11..04.51.23..4b44' 97]
  152. ['~2019.10.11..07.03.12..0fe4' 89]
  153. ['~2019.10.15..07.36.33..e7a3' 82]
  154. ['~2019.10.15..18.15.44..6d32' 67]
  155. ['~2019.10.16..05.49.49..104e' 52]
  156. ]
  157. ]
  158. [%ride ~]
  159. [%xpat ~]
  160. [%comb ~]
  161. [%slym ~]
  162. [%json ~]
  163. [%xshape ~]
  164. [%cain ~]
  165. [%ream ~]
  166. [%fold ~]
  167. [%cove ~]
  168. [%vice ~]
  169. [%slot ~]
  170. [%hike ~]
  171. [%pi-noon ~]
  172. [%xtable ~]
  173. [%mean ~]
  174. [%xkey ~]
  175. [%rain ~]
  176. [ %vast
  177. ~[
  178. ['battery-spec-to-plum-list' 8]
  179. ['indent-pattern-violation' 8]
  180. ['chapters-to-plum-verbose' 8]
  181. ['decorate-ximage-with-xroles' 8]
  182. ['decorate-ximage-with-xpats' 8]
  183. ['decorate-ximage-with-loops' 8]
  184. ]
  185. ]
  186. [%onan ~]
  187. [%musk ~]
  188. [%monk ~]
  189. [%cond ~]
  190. [%traverse ~]
  191. [%slim ~]
  192. [%slew ~]
  193. [%flor ~]
  194. [%traverse-map ~]
  195. [%text ~]
  196. [%fork ~]
  197. [%mars ~]
  198. [%cons ~]
  199. [%shop ~]
  200. [%ax ~]
  201. [%xrole ~]
  202. [%slog ~]
  203. [%noah ~]
  204. [%ship ~]
  205. [%jock ~]
  206. [%spur ~]
  207. [%marl ~]
  208. [%flip ~]
  209. [%wa ~]
  210. [%pi-tell ~]
  211. [%seer ~]
  212. [ %libpprint
  213. ~[
  214. ['battery-spec-to-plum-list' 1.421]
  215. ['indent-pattern-violation' 1.425]
  216. ['chapters-to-plum-verbose' 1.421]
  217. ['decorate-ximage-with-xroles' 1.421]
  218. ['decorate-ximage-with-xpats' 1.421]
  219. ['decorate-ximage-with-loops' 1.421]
  220. ['~2019.6.27..23.51.23..1fcc' 1.255]
  221. ['~2019.6.28..00.52.33..52b0' 1.246]
  222. ['~2019.6.28..00.56.45..6c73' 1.236]
  223. ['~2019.7.3..10.45.31..45f5' 1.216]
  224. ['~2019.7.3..18.00.01..87e8' 1.197]
  225. ['~2019.7.3..19.30.19..84a0' 1.178]
  226. ['~2019.7.3..22.50.29..206b' 1.158]
  227. ['~2019.7.3..23.31.48..c7b9' 1.139]
  228. ['~2019.7.4..00.03.56..3ebb' 1.119]
  229. ['~2019.7.4..06.42.19..1716' 1.100]
  230. ['~2019.7.4..07.11.50..96c9' 1.080]
  231. ['~2019.7.5..21.44.36..50af' 1.061]
  232. ['~2019.7.10..09.35.39..c44b' 1.041]
  233. ['~2019.7.12..00.01.38..2a94' 1.022]
  234. ['~2019.7.12..00.36.25..d996' 1.002]
  235. ['~2019.7.12..06.33.06..6a1d' 983]
  236. ['~2019.7.15..18.41.16..b43f' 964]
  237. ['~2019.7.16..05.52.56..ea38' 944]
  238. ['~2019.7.16..06.05.15..b0af' 934]
  239. ['~2019.7.16..11.16.44..caab' 915]
  240. ['~2019.7.16..12.18.05..3d0e' 895]
  241. ['~2019.7.17..19.57.42..513b' 886]
  242. ['~2019.7.17..20.32.32..cacb' 866]
  243. ['~2019.7.18..22.21.08..0e9f' 857]
  244. ['~2019.7.19..00.10.33..ffc4' 837]
  245. ['~2019.7.22..18.08.18..b3a2' 818]
  246. ['~2019.7.27..01.37.40..5ef6' 808]
  247. ['~2019.8.2..01.20.08..4134' 788]
  248. ['~2019.8.9..21.18.31..dc83' 779]
  249. ['~2019.8.10..21.15.46..94f7' 759]
  250. ['~2019.8.12..14.16.29..4cfb' 750]
  251. ['~2019.8.22..20.07.03..de76' 730]
  252. ['~2019.8.25..03.17.13..612e' 711]
  253. ['~2019.8.25..03.25.57..5160' 701]
  254. ['~2019.8.25..06.09.11..2829' 691]
  255. ['~2019.8.25..07.25.12..cd95' 681]
  256. ['~2019.8.25..07.32.08..a326' 672]
  257. ['~2019.8.25..07.55.26..21e7' 662]
  258. ['~2019.8.25..08.29.26..e9a1' 652]
  259. ['~2019.8.25..08.49.57..37e0' 643]
  260. ['~2019.8.25..09.08.19..5ec8' 633]
  261. ['~2019.8.25..09.16.03..a8a7' 623]
  262. ['~2019.8.26..17.48.46..fc0f' 613]
  263. ['~2019.8.26..17.59.07..e354' 604]
  264. ['~2019.8.27..10.12.22..bdf8' 594]
  265. ['~2019.8.27..11.01.21..7ddc' 574]
  266. ['~2019.8.29..20.01.47..746b' 555]
  267. ['~2019.8.30..00.03.20..1533' 535]
  268. ['~2019.9.6..01.55.23..00bf' 526]
  269. ['~2019.9.9..17.45.28..faad' 506]
  270. ['~2019.9.9..18.47.11..f996' 487]
  271. ['~2019.9.9..19.32.20..94bc' 468]
  272. ['~2019.9.9..20.20.39..5d9c' 453]
  273. ['~2019.9.11..03.14.51..4405' 438]
  274. ['~2019.9.11..04.01.47..c26b' 423]
  275. ['~2019.9.11..05.10.35..61ba' 408]
  276. ['~2019.9.11..05.48.08..1609' 393]
  277. ['~2019.9.11..06.15.48..441a' 378]
  278. ['~2019.9.11..06.42.55..d2f5' 363]
  279. ['~2019.9.11..07.16.25..9336' 348]
  280. ['~2019.9.11..07.49.20..b3df' 333]
  281. ['~2019.9.11..17.38.18..093e' 318]
  282. ['~2019.9.18..15.50.31..19a9' 303]
  283. ['~2019.9.27..11.55.43..cd9c' 289]
  284. ['~2019.9.27..12.18.16..5832' 274]
  285. ['~2019.9.27..12.26.57..46cd' 266]
  286. ['~2019.9.27..20.07.29..4b3d' 259]
  287. ['~2019.9.29..17.17.29..18e1' 244]
  288. ['~2019.9.29..18.26.55..e602' 236]
  289. ['~2019.9.29..21.49.42..1407' 229]
  290. ['~2019.10.1..22.08.56..393f' 214]
  291. ['~2019.10.3..20.08.15..89de' 199]
  292. ['~2019.10.3..21.43.13..8957' 184]
  293. ['~2019.10.4..21.03.52..5fb2' 169]
  294. ['~2019.10.4..21.57.14..1a15' 154]
  295. ['~2019.10.5..12.22.34..85ef' 139]
  296. ['~2019.10.7..06.57.30..8707' 131]
  297. ['~2019.10.8..08.15.44..c619' 124]
  298. ['~2019.10.10..05.40.19..622e' 109]
  299. ['~2019.10.10..05.50.55..ac68' 101]
  300. ['~2019.10.11..04.51.23..4b44' 94]
  301. ['~2019.10.11..07.03.12..0fe4' 86]
  302. ['~2019.10.15..07.36.33..e7a3' 79]
  303. ['~2019.10.15..18.15.44..6d32' 64]
  304. ['~2019.10.16..05.49.49..104e' 49]
  305. ]
  306. ]
  307. [%fitz ~]
  308. [%manx ~]
  309. [%ah ~]
  310. [%mane ~]
  311. [%look ~]
  312. [%slob ~]
  313. [%vang ~]
  314. [%slam ~]
  315. [%reverse-map ~]
  316. [%bool ~]
  317. [%loot ~]
  318. [%make ~]
  319. [%slop ~]
  320. [%xray ~]
  321. [%sped ~]
  322. [%sell ~]
  323. [%time ~]
  324. [%core ~]
  325. [%face ~]
  326. [%vest ~]
  327. [%slit ~]
  328. [%marx ~]
  329. [%sloe ~]
  330. [%pass ~]
  331. [%slab ~]
  332. [%ut ~]
  333. [%mite ~]
  334. [%pi-mope ~]
  335. [%slap ~]
  336. [%pi-moth ~]
  337. ]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement