I hereby claim:
- I am dpick on github.
- I am davidpick (https://keybase.io/davidpick) on keybase.
- I have a public key whose fingerprint is 6960 FDA3 4FEA BD3A 8244 7F84 66E0 8334 4DE3 1424
To claim this, I am signing this object:
6 (defn everyo | |
7 "A pseudo-relation that takes a coll and ensures that the goal g | |
8 succeeds on every element of the collection." | |
9 [g coll] | |
10 (if (seq coll) | |
11 (all | |
12 (g (first coll)) | |
13 (everyo g (next coll))) | |
14 s#)) | |
15 |
board = ["m", "w", "e", "t", "p", "e", "q", "i", "x", "a", "h", "v", "f", "f", "y", "j", "n", "l", "j", "h", "w", "c", "e", "s", "r"] | |
all_words = File.open('/usr/share/dict/words').readlines.map! { |line| line.strip.chomp } | |
valid_words = all_words.reject { |w| w =~ /[^#{board.join}]/ } | |
valid_words = valid_words.select do |w| | |
bool = true | |
bool = false if w.size <= 2 | |
split_word = w.downcase.split('') |
(define minimize-interval-list | |
(lambda (ls) | |
(if (null? ls) | |
'() | |
(if (equal? (length ls) 1) | |
ls | |
(if (interval-intersects? (car ls) (cadr ls)) | |
(minimize-interval-list (append (interval-union (car ls) (cadr ls)) (cddr ls))) | |
(cons (car ls) (minimize-interval-list (cdr ls)))))))) |
require 'rubygems' | |
require 'nokogiri' | |
require 'open-uri' | |
doc = Nokogiri::HTML(open(ARGV[0])) | |
title = doc.css('title').first.content.scan(/\r\n\t(.*) -/).first | |
puts title | |
image = doc.css('img#imgPhoto').first.attributes['src'].value |
(time (map #(score %) (take 10000 (range 144115222435594240 149551225103187968)))) | |
; "Elapsed time: 0.107 msecs" | |
(time (sort (map #(score %) (take 10000 (range 144115222435594240 149551225103187968))))) | |
; "Elapsed time: 672.586 msecs" |
(defn find-user | |
[id] | |
{:id id}) |
(defn credential-fn [guid] | |
(if-let [user (persistence/find-user-by-guid guid)] | |
(assoc user :roles #{:fashion.server/user}))) | |
(defn guid [request] | |
(if (empty? (:session request)) | |
(let [user (persistence/create-user {:guid (java.util.UUID/randomUUID) :password (str (java.util.UUID/randomUUID))})] | |
(workflows/make-auth (assoc user :roles #{:fashion.server/user} :identity (:guid user)) {:cemerick.friend/workflow :guid})) | |
(let [user (persistence/find-user-by-guid (get-in request [:session :cemerick.friend/identity :current]))] | |
(when user |
bonus: Stealthed | |
ability_score: | |
primary: dexterity | |
secondary: | |
- strength | |
- charisma | |
powers: | |
cloud_of_steel: | |
name: Cloud Of Steel | |
type: at_will |
def delete(value, node = @root) | |
return if node.nil? | |
if x < node.value | |
node.left = delete(x, node.left) | |
elsif x > node.value | |
node.right = delete(x, node.right) | |
else | |
if node.left.nil? | |
return node.right |
I hereby claim:
To claim this, I am signing this object: