| let fetchData = () => { | |
| Fetch.fetch("data.csv"); | |
| } | |
| fetchData(); | |
| type marshalled_location = {. | |
| "administrative_area_level_1": string, | |
| "country": string, | |
| "locality": string, | |
| "postal_code": string, | |
| "route": string, | |
| "street_number": string }; | |
| let quote = (s:string): string => { | |
| "\"" ++ s ++ "\""; |
| [@bs.module] external lab : Js.t({..}) = "./lab.json"; | |
| let components = lab##components; | |
| let length = list => { | |
| let rec addUpLength = (innerList, currentTotal) => | |
| switch (innerList) { | |
| | [] => currentTotal | |
| | [head, ...tail] => {Js.log(head); Js.log("****"); addUpLength(tail, currentTotal + 1)} |
| /* | |
| * Define a type that can be either a single string or a list of strings | |
| */ | |
| type queryItem = | |
| | Single(string) | |
| | Multiple(list(string)); | |
| /* | |
| * Make a string “safe” by |
| open Array; | |
| let concatStringArray = (arr : array(string)) : string => | |
| fold_left( (acc, item) => acc ++ item, "", arr); | |
| let s = "operation"; | |
| let d = None; | |
| let parsingResult = "something I parsed"; | |
| Js.log(concatStringArray ([| |
Here's the problem at hand: I have a file with some data like this:
Name;email;zip;status
Joe Doakes;joe@doakes.com;07123;A
Nancy Smith;nancy25@smith.com;98146;I
Armando Gonzales;armando@gonzales.com;77194;A
I want to semi-anonymize it by changing all the email addresses to end in @example.com and replacing the ZIP code with a random 5-digit number.
| > :clear | |
| > import Prelude | |
| > newtype Cat = Cat {name::String, breed::String} | |
| > myCat = Cat {name: "Marco", breed: "Domestic shorthair"} | |
| > :t myCat | |
| Cat | |
| > :paste | |
| … getName :: Cat -> String | |
| … getName (Cat c) = c.name |
| import System.IO | |
| import Numeric | |
| import qualified Data.Map as M | |
| -- Given a file with people's first and last initials, | |
| -- one person per line, find the frequency and cumulative | |
| -- frequency for each letter. | |
| freqCount:: M.Map Char Int -> String -> M.Map Char Int | |
| freqCount m s = |
| var sockets = [null, null, null]; | |
| var areas = ["main", "auxiliary", "extras"]; | |
| function receive_message(event) { | |
| console.log(event.data); | |
| } | |
| function open_connections() { | |
| for (var i = 0; i < sockets.length; i++) { | |
| sockets[i] = new WebSocket("ws://localhost:3001"); |
| <!DOCTYPE html> | |
| <html xml:lang="en" lang="en" | |
| xmlns="http://www.w3.org/1999/xhtml"> | |
| <head> | |
| <title>Text Replacer</title> | |
| <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> | |
| <script type="text/javascript"> | |
| //<![CDATA[ | |
| function domReplacer(startNode, replaceFunction) { | |
| textReplacer(startNode.firstChild, replaceFunction); |