Yaşar Arabacı yasar11732

yasar11732 / listADT.hs

Last active December 13, 2019 22:04


	module ListADT where
	import Data.List

	data List a = Cons a (List a)
	\| Nil

	-- instance (Show a) => Show (List a) where
	-- show xs = "MyList[" ++ (intersperse ',' . map show) (toList xs) ++ "]"

yasar11732 / hw6.hs

Last active December 12, 2019 15:18

yasar11732 / hw4.hs

Last active December 12, 2019 08:21

	import Data.List

	fun1 :: [Integer] -> Integer
	fun1 = product . map (subtract 2) . filter even


	fun2' :: Integer -> Integer
	fun2' 1 = 0
	fun2' n \| even n = n + fun2' (n `div` 2)
	\| otherwise = fun2' (3 * n + 1)

yasar11732 / Golf.hs

Last active December 11, 2019 14:43


	{-
	Exercise 1 Hopscotch
	Your first task is to write a function

	skips :: [a] -> [[a]]

	The output of skips is a list of lists. The first list in the output should
	be the same as the input list. The second list in the output should
	contain every second element from the input list. . . and the nth list in

yasar11732 / LogAnalysis.hs

Last active December 10, 2019 09:01

	{-# OPTIONS_GHC -Wall #-}
	module LogAnalysis where
	import Log


	parseMessage' :: [String] -> LogMessage
	parseMessage' ("E":severity:timestamp:rest) = LogMessage (Error (read severity)) (read timestamp) (unwords rest)
	parseMessage' ("I":timestamp:rest) = LogMessage Info (read timestamp) (unwords rest)
	parseMessage' ("W":timestamp:rest) = LogMessage Warning (read timestamp) (unwords rest)
	parseMessage' x = Unknown (unwords x)

yasar11732 / doubleEveryOther.hs

Last active December 9, 2019 15:21


	toDigits :: Integer -> [Integer]
	toDigits n
	\| n <= 0 = []
	\| n < 10 = [n]
	\| otherwise = (toDigits (n `div` 10)) ++ [n `mod` 10]

	toDigitsRev :: Integer -> [Integer]
	toDigitsRev n = reverse $ toDigits n

yasar11732 / walk.hs

Last active December 6, 2019 14:18

Haskell Walk Directory Recursively

	import System.Directory
	import System.FilePath
	import Control.Monad
	import Control.Exception
	import GHC.IO.Encoding
	-- Gets a root directory and a callback,
	-- calls callback for root directory and every subdirectory recursively
	-- callback signature root -> files -> dirs -> IO ()
	walkDirectory :: String -> (String -> [String] -> [String] -> IO ()) -> IO ()
	walkDirectory rootDir callback = do

yasar11732 / JSON.cs

Created July 29, 2019 18:50

JSON parser and stringifier implemented in C# (Recursive Descent Parser)

	using System;
	using System.Collections.Generic;
	using System.IO;
	using System.Linq;
	using System.Text;
	using System.Text.RegularExpressions;

	namespace MiniWebFramework
	{
	public enum JSONValueType

yasar11732 / huffman.c

Last active July 14, 2019 18:03

Canonical Huffman Coding Demo

	#include <stddef.h> // NULL
	#include <stdint.h>
	#include <stdlib.h> // calloc
	#include <string.h> // memset
	#include <stdio.h>

	/*
	* Bir kodun en fazla 15 bit olmasına izin vereceğiz.
	* Bu nedenle code için 16 bit veri yapısı yeterli.
	*/

yasar11732 / stackprotector.s

Created September 14, 2018 19:46

GCC stack protector