Skip to content

Instantly share code, notes, and snippets.

View paradoja's full-sized avatar

Abby Henríquez Tejera paradoja

View GitHub Profile
@paradoja
paradoja / gc_tips.md
Created October 18, 2020 09:37 — forked from kishiamy/gc_tips.md
Tips for Gran Canaria

To eat

import shapeless._, syntax.std.product._, spray.json.{JsNumber, JsString}
case class Person(name: String, age: Int)
val p = Person("Pepe", 54)
p.toMap[Symbol, Any] // res0: Map[Symbol,Any] = Map('age -> 54, 'name -> Pepe)
p.toMap[Symbol, Any].map {
case (s, i: Int) => s.toString -> JsNumber(i)
import Resolvers._
object add {
def apply(org: String, sub: String) = {
val newResolver = Resolver.Http("bintray", s"https://dl.bintray.com/$org/$sub/", MavenPattern, true)
interp.resolvers() = interp.resolvers() :+ newResolver
}
}
@paradoja
paradoja / ghci.hs
Created November 5, 2012 03:15
Compressed powerset
import Control.Monad
import Data.List
let unRoll = join .map (uncurry $ flip replicate)
let roll = map $ map (\l@(x:_) -> (x, length l)) . group:: [String] -> [[(Char, Int)]]
let powerSet = roll . nub . filterM (const [True, False]) . unRoll
powerSet [('a',2), ('b',2)]
def is_ancestor_of?(other_page)
other_page.is_descendant_of? self
end
@paradoja
paradoja / index.html
Created June 3, 2012 20:07
Playing with node
<html>
<head>
<title> ¡Hola! </title>
<script src="https://ajax.googleapis.com/ajax/libs/jquery/1.7.2/jquery.min.js"></script>
<script src="/socket.io/socket.io.js"></script>
<script>
var server = io.connect('http://localhost:8080');
document.onkeypress = manda;
function manda(event) {
@paradoja
paradoja / factorial.java
Created May 31, 2012 08:44
Recursividad final
/* Este factorial es recursivo, pero operamos de alguna forma la
* llamada recursiva (la multiplicamos por n).
*/
long factorial(long n) {
if (n == 0) {
return 1;
}
else {
return n * factorial(n-1);
@paradoja
paradoja / fizbuzz.hs
Created May 4, 2012 20:53
Haskell's brute force Scala-like inverse fizzbuzz
-- http://www.jasq.org/2/post/2012/05/inverse-fizzbuzz.html
import Control.Applicative -- para <*>
import Data.List -- para sortBy
import qualified Data.Map as M
divides m n = n `mod` m == 0
fizzbuzzTest n = [divides 3, divides 5] <*> [n]
{-# OPTIONS_GHC -XDeriveDataTypeable #-}
import XMonad
import Data.Monoid
import System.Exit
import XMonad.Config.Gnome
import qualified XMonad.StackSet as W
import qualified Data.Map as M
import XMonad.Util.Run (safeSpawn)
@paradoja
paradoja / open-ec
Created July 7, 2015 08:18
It's All Text! emacsclient launcher
!#/bin/bash
/usr/local/bin/emacsclient -c "$@"