Skip to content

Instantly share code, notes, and snippets.

View pietroluongo's full-sized avatar
🤠
Yee haw

Gabriel Pietroluongo pietroluongo

🤠
Yee haw
View GitHub Profile
@pietroluongo
pietroluongo / pietroluongo_fast_setup.sh
Created March 27, 2020 07:28
Script de instalação rápida das minhas dependências visuais do prompt
#!/bin/bash
# Para primeira rodada de script
sudo apt update
# Programas essenciais
sudo apt install zsh curl git fonts-powerline -y
# Oh My Zsh
if [ -d "/home/$USER/.oh-my-zsh" ]
xxd -b arquivo.comp | cut -d: -f 2 | sed 's/ .*//; s/ //g'
@pietroluongo
pietroluongo / cleargit.sh
Created July 23, 2019 20:33
Script para resetar as configurações globais do git
#!/bin/bash
git config --global user.name ""
git config --global user.email ""
echo "Configurações limpas"
@pietroluongo
pietroluongo / lista2.hs
Last active June 27, 2019 22:41
Lista de Haskell, ato II
-- Monads https://medium.com/@julianoalves/functors-applicatives-e-monads-explicados-com-desenhos-2c45d5db7d25
data Arv a = Vazia | Node a (Arv a) (Arv a) deriving (Eq, Show, Read)
instance Functor Arv where
fmap f Vazia = Vazia
fmap f (Node a l r) = Node (f a) (fmap f l) (fmap f r)
singleton :: a -> Arv a
singleton a = Node a Vazia Vazia
@pietroluongo
pietroluongo / lista.hs
Last active May 14, 2019 12:53
Lista de exercícios de Haskell
quickSort :: (Ord a) => [a] -> [a]
quickSort [] = []
quickSort (x:xs) =
fSorted ++ [x] ++ eSorted
where
fSorted = quickSort [a | a <- xs, a <= x]
eSorted = quickSort [a | a <- xs, a > x]
-- 1
mmc :: Int -> Int -> Int