iporsut

func (acc *Account) Deposit(amount float64) {
	acc.Balance += amount
}

iporsut

func main() {
	acc := Account{Name: "Weerasak", Balance : 1000.00 }
	acc.Deposit(500.00)
	fmt.Println(acc)
}

iporsut

type IO interface {
	Read() string
	Write(string)
}

iporsut

-module(mylist).
-export([flatten/1]).

flatten(L) -> flatten(L, []).

flatten([], Acc) -> Acc;
flatten([H|T], Acc) when is_list(H) ->  flatten(T, Acc ++ flatten(H));
flatten([H|T], Acc) -> flatten(T, Acc ++ [H]).

iporsut

replace xs a b = replace' [] xs
                 where
                    replace' acc [] = acc
                    replace' acc (x:xs) | x == a    = replace' (acc ++ [b]) xs
                                        | otherwise = replace' (acc ++ [x]) xs

iporsut

package main

import (
	"bufio"
	"flag"
	"fmt"
	"os"
	"strings"
)

iporsut

rotate xs n | n >= 0 = drop n xs ++ take n xs
            | otherwise = drop (length xs + n) xs ++ take (length xs + n) xs

iporsut

rotate xs n | n >= 0 = zipWith (\_ x -> x) xs $ drop n $ cycle xs
            | otherwise = take len $ drop dropLen $ (cycle xs)
                          where
                            len = length xs
                            dropLen = (len + (n `mod` (-len)))

iporsut

import Control.Monad (replicateM)

parseTokens:: String -> [String]

parseTokens tokenStr = parseTokens' [] "" False tokenStr
                        where
                            parseTokens' acc word isGroup "" = acc
                            parseTokens' acc word isGroup (x:xs) 
                                | not isGroup && x == '('   = parseTokens' acc "" True xs
                                | not isGroup && x /= '('   = parseTokens' (acc++[[x]]) "" False xs

iporsut

package main

import (
	"bytes"
	"fmt"
	"strings"
)

func main() {
	// Read first line