Skip to content

Instantly share code, notes, and snippets.

View rainbyte's full-sized avatar

Alvaro Fernando García rainbyte

View GitHub Profile
@rainbyte
rainbyte / QuickStart.fs
Created November 25, 2019 16:50 — forked from pizycki/QuickStart.fs
MySQL, Dapper and F#
// Place this in .fsproj
// <ItemGroup>
// <PackageReference Include="Dapper.Contrib" Version="1.60.1" />
// <PackageReference Include="MySqlConnector" Version="0.56.0" />
// </ItemGroup>
open Dapper
open MySql.Data.MySqlClient
// CREATE TABLE `8833_rw_dev`.`Releases` (
;; Step 1
(defn fact1 [n]
(if (< n 2) 1 (* n (fact1 (- n 1)))))
(println (fact1 5))
;; Step 2
(def fact2
((fn [f]
@rainbyte
rainbyte / Base64.hs
Last active August 29, 2015 14:09 — forked from igstan/Base64.hs
module Base64 (encode) where
import Data.Bits (shiftL, shiftR, (.|.))
import Data.List (replicate)
import Data.Maybe (fromJust)
import Data.Word (Word8)
import Data.ByteString (ByteString, append, pack)
import qualified Data.ByteString as ByteString
import qualified Data.ByteString.Char8 as Char8