lazamar

  Wed Jul  3 12:04 2024 Time and Allocation Profiling Report  (Final)

     main +RTS -p -RTS test ghcup

  total time  =       56.65 secs   (56648 ticks @ 1000 us, 1 processor)
  total alloc = 338,254,238,432 bytes  (excludes profiling overheads)

COST CENTRE            MODULE SRC                       %time %alloc

serialize.write        Main   Main.hs:(99,3)-(107,53)    27.6   27.7

lazamar

// run with `node index.js`

function bubbleSort(list) {
  for (let limit = 1; limit < list.length; limit++) {
    for (let i = 0; i < list.length - limit; i++) {
      let left = list[i];
      let right = list[i + 1];
      if (left > right) {
        list[i] = right;
        list[i+1] = left;

lazamar

{- Unnecessarily knot tying solution to https://github.com/josevalim/nested-map-reduce-traversal

   You can run it with:
    $ ghc Main.hs && ./Main

   Which outputs:
    Numbered 0 ("One",[Numbered 0 "A",Numbered 1 "B"])
    Numbered 1 ("Two",[Numbered 2 "C",Numbered 3 "D",Numbered 4 "E"])
    Numbered 2 ("Three",[Numbered 0 "F",Numbered 1 "G"])
    Numbered 3 ("Four",[])

lazamar

{- This is a solution to https://github.com/josevalim/nested-map-reduce-traversal
   without using explicit accumulators.
   
   You can run it with:
   $ ghc Main.hs && ./Main
   
   Which outputs:
    Numbered 0 ("One",[Numbered 0 "A",Numbered 1 "B"])
    Numbered 1 ("Two",[Numbered 2 "C",Numbered 3 "D",Numbered 4 "E"])
    Numbered 2 ("Three",[Numbered 0 "F",Numbered 1 "G"])

lazamar

#!/bin/bash
set -e
rm -f tags
find . -name "*.hs*" | fast-tags -
# ag respects .github
ag -l | ctags --optlib-dir=/home/lazamar/ --excmd=number --links=no -L-  # This must be universal-ctags

lazamar

Mounting

sshfs {user}@{host}:{path} {mounting_path} -o ServerAliveInterval=60 -o allow_other

MacOS unmount

umount -f {path}

lazamar

import Data.Function
import Data.List
import Data.Maybe
import qualified Data.Set as Set
import qualified Data.Map as Map

-- Longest increasing subsequence
-- O(nlogn)
lis :: Ord a => [a] -> [a]
lis = buildResult . snd  . mapAccumL takeMax (Set.empty, Nothing)

lazamar

module Lib where

import Data.List (foldr)

-- Complete the highestValuePalindrome function below.

highestValuePalindrome :: String -> Int -> Int -> String
highestValuePalindrome s n changesAllowed =
    if changesToMakePalindrome > changesAllowed
       then "-1"

lazamar

html {
    /*background-color: #f5f5f5;*/
}
body {
    font-family: -apple-system,BlinkMacSystemFont,Segoe UI,Helvetica,Arial,sans-serif,Apple Color Emoji,Segoe UI Emoji,Segoe UI Symbol;
}
a {
   color: #E91E63;
}
p {

lazamar

git config --global alias.lg "log --graph --pretty=format:'%Cred%h%Creset -%Cgreen(%>(14)%cr) %C(bold blue)<%<(17,trunc)%an>%Creset %s %C(yellow)%d%Creset' --abbrev-commit"