This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(defn group [xs] | |
"splits its sequence argument into a list of lists of equal, adjacent elements." | |
(partition-by identity xs)) | |
(defn zip [xs ys] | |
"makes a list of vector tuples, each tuple containing elements of both sequences occuring at the same position" | |
(map vector xs ys)) | |
(defn lines [str] | |
"For a given string, split it into a vector using a newline terminator as a delimiter" |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
; double everything in a list | |
(map #(* 2 %) (range 1 10)) | |
; sum a list of numbers | |
(reduce + (range 1 1000)) | |
; read a file | |
(clojure.string/split (slurp "cl.clj") #"\n") |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
-- Inspired by http://solog.co/47/10-scala-one-liners-to-impress-your-friends/ | |
-- Double everything in a list | |
map (*2) [1..10] | |
-- Sum a list of numbers | |
sum [1..1000] | |
-- Verify if exists in a string (thanks to hammar for this: http://stackoverflow.com/questions/6224315/how-to-verify-if-some-items-are-in-a-list) | |
any (`elem` ["haskell", "ghc", "monads", "cabal"]) $ words "this is a piece of example text talking about haskell and ghc" |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/env ruby | |
# Quick rough and dirty script to push new issues of the excellent | |
# free monthly magazine from the guys at PragProg to your kindle | |
# | |
# Will download the latest magazine from the list and then will only | |
# download magazines when a new issue comes out | |
# | |
require 'date' | |
require 'fileutils' | |
require 'nokogiri' |
NewerOlder