Wasawat Somno dodadoa

🧠

brain

I code, therefore bugs exist. \n

dodadoa / gist:94700129a97919be7c1b79a7866dc66d

Created December 5, 2024 06:27

degrade.tidal

dodadoa / hangman.hs

Created September 22, 2018 06:39

	import Data.List

	hangman :: [Char] -> [Char] -> Bool
	hangman sw lc = sw == (sw `intersect` lc)

dodadoa / elixir_challenge.ex

Created September 18, 2018 09:55

	defmodule ElixirChallenge do
	def transform(data) do
	data
	\|> Map.to_list()
	\|> Enum.reverse()
	\|> Enum.reduce(
	[],
	fn {_, listOfElement}, accumulator ->
	if accumulator == [] do
	accumulator ++ listOfElement

dodadoa / shape.hs

Created August 18, 2018 11:40

	module Shape
	( area
	, perimeter
	, maxArea
	, maxPerimeter
	, max
	, Shape (Circle, Rectangle, Square)
	) where

	data Shape = Circle Float \| Rectangle Float Float \| Square Float deriving(Show)

dodadoa / MarsRovers.hs

Last active September 4, 2018 03:13

	module MarsRovers
	( Direction (North, East, West, South)
	, Rotation (CounterClockWise, ClockWise)
	, Position
	, Rover
	, Plateau
	, Command
	, Commands
	, move
	, turn

dodadoa / Box.java

Created July 16, 2018 12:38

	import java.io.Serializable;
	import java.util.ArrayList;
	import java.util.Arrays;
	import java.util.List;
	import java.util.NoSuchElementException;
	import java.util.function.Function;

	class Teddy {
	private final String name;

dodadoa / FunctionalMappingFunction.java

Created July 11, 2018 12:52

	import java.util.ArrayList;
	import java.util.Arrays;
	import java.util.List;
	import java.util.function.Function;
	import java.util.stream.Collectors;

	class Box<T> {
	List<T> l;

	Box(List<T> l){

dodadoa / BoxMap.java

Created July 11, 2018 11:26

	class Box<T> {
	List<T> l;

	Box(List<T> l){
	this.l = l;
	}

	public <E> Box<E> map(Function<? super T, ? extends E> f){
	List<E> result = new ArrayList<>();
	for(int i = 0; i < this.l.size(); i++){

dodadoa / tree-state-structure.clj

Last active September 18, 2018 11:22

	(defn build-new-ds [result ds]
	(if (empty? ds)
	result
	(let [province (get (first ds) :province)
	amphoe (get (first ds) :amphoe)
	district (get (first ds) :district)]
	(if (contains? result province)
	(recur
	(assoc result province
	(assoc (province result) amphoe

dodadoa / clojure-cipher-katas.clj

Last active October 14, 2017 20:05

code katas - Clojure Cipher

	(def init-key (vec (map str "abcdefghijklmnopqrstuvwxyz")))

	(defn fill-up-keyword [keyword message]
	(apply str
	(take (count message) (apply str
	(repeat (count message) keyword)))))

	(defn get-char-encode [a b]
	(nth init-key
	(mod (+