ในโปรแกรมที่ผมกำลังทำอยู่ตอนนี้ จำเป็นต้องอ่านเท็กไฟล์ขนาดใหญ่เข้ามา แล้วเอามาแบ่งออกเป็นส่วนย่อยๆก็คือเอามา split นะแหละครับ แล้วทีนี้เวลาอ่านข้อมูลเอามาจากไฟล์ใน erlang จะใช้ฟังก์ชัน read_file จาก module file โดยผลลัพธ์ที่ได้จะอยู่ในรูปแบบประมาณนี้

{ok, <<"attaccggttaaccttgg">>}

คือได้ tuple ตัวแรกเป็น ok คืออ่านได้ปกติ ตัวหลังคือข้อมูลที่เป็นแบบ binary ใน erlang ข้อมูลแบบ binary จะอยู่ในสัญลักษณ์ <<>>

ตอนแรกทำโปรแกรมให้อ่านค่าจากไฟล์แล้วให้โปรแกรมส่งแค่ผลลัพธ์ข้างใน binary ออกมาเป็น string แล้วเอา string ไปใช้งานต่อ ผลที่ได้คือตอนทำการแบ่งสตริงออกเป็นลิสต์ของสตริงย่อยๆ ทำงานช้ามาก ขนาดที่ทดลองคือ ล้านกว่าตัวอักษร

ก็ลองค้นหาดูว่า มีวิธียังไงบ้างให้สามารถอ่านข้อมูลขนาดใหญ่เข้ามาจัดการได้อย่างรวดเร็ว ก็ไปเจอว่าส่วนใหญ่แล้วเขาจะไม่แปลงข้อมูลจาก binary ไปเป็น string แต่จะจัดการกับ binary เลย เช่นตรงนี้ก็คือ แบ่งตัว binary ที่ได้จากการอ่านไฟล์เลย โดยอาศัยการใช้ pattern matching กับข้อมูลแบบ binary เพื่อทำการ bind ค่าจาก binary ออกมาเป็น binary ย่อยๆตามจำนวนที่ต้องการ

ข้อมูลแบบ binary จะอยู่ใน pattern แบบนี้

<<"abc">>

ตัวอย่างคือมีข้อมูลอยู่ 3 bytes (24 bits แต่ละตัวอักษรใช้ 1 byte ใน 1 byte มี 8 bits)

ถ้าเราต้องการ binding ค่าของ a ออกมาจะทำได้แบบนี้

<> = <<"abc">>.

คือตรงส่วน pattern เราก็ทำให้อยู่ในฟอร์มของ binary มี <<>> ครอบเหมือนกัน ผลที่ได้คือ A จะถูก bound ค่าของ 8 bits แรกใน binary <<"abc">> ถ้าเราสั่ง

A.
97

จะเห็นว่าจะได้ค่า 97 ก็คือค่ารหัส ASCII ของอักษร a นั่นเอง ส่วน Rest/binary เป็นการบอกว่า Rest คือส่วนที่เหลือทั้งหมด และส่วนที่เหลือทั้งหมดนี้เป็น binary ทั้งก้อน ผลที่ได้คือ Rest จะเท่ากับ <<"bc">> นั่นเอง

Rest.
<<"bc">>

ถ้าเราต้องการนำ A กลับไปเป็น binary อีกครับก็สามารถทำได้โดยใช้ <<>> ครอบ A
<>.
<<"a">>

นอกจากนี้ เราสามารถกำหนดได้ว่าเราจะทำการ matching ค่าจาก binary เป็นจำนวนกี่บิต จะเห็นว่าปกติเป็น 8 บิต ตัวอย่างเช่น เราต้องการดึงค่าจาก <"abc"> ออกมา 2 ตัวหน้า คือ "ab" จะเห็นว่าตัวอักษรมีทั้งหมด 2 ตัวแสดงว่าใช้ทั้งหมด 16 bits เราสามารถ match ได้ด้วยวิธีแบบนี้

<> = <<"abc">>.

ผลที่ได้คือ Rest จะเหลือ

<<"c">>

ส่วน A จะได้ค่าเป็น

24930

คือเป็นค่าที่เกิดจาก bit ของ $a และ $b มาต่อกัน
ถ้าเราต้องการเอา A ไปสร้างเป็น binary ที่มี "ab" ทำได้โดยเอา A ไปครอบด้วย <<>> เหมือนเดิม แต่เราต้องใส่รายละเอียดจำนวนบิตเหมือนเดิมกับตอนที่เอา binding ค่าออกมาด้วยเช่น

<>.
<<"ab">>

ตัวอย่างที่ผมเอาไปใช้ใน my_split ฟังก์ชันที่แบ่ง binary แต่ผมจะแบ่งแบบคาบเกี่ยวกัน เช่น แบ่ง 2000 แต่หักออก 1000 แล้วแบ่งอีก 2000

-module(my_binary).
-export([my_split/2]).

my_split(BinList,N) -> my_split(BinList,N,[]).

my_split(<<>>,_,R) -> R;
my_split(BinList,N,R) -> Length = N*8,
                         BinListLength = bit_size(BinList),
                         CheckLength = Length =< BinListLength,

                         if CheckLength == true ->
                                        <> = BinList,
                                        DropLength = Length div 2,
                                        <<_:DropLength,DropRest/binary>> = BinList,
                                        my_split(DropRest,N,[<>|R]);
                                   true ->
                                        <> = BinList,
                                        my_split(Rest,N,[<>|R])
                         end.

วิธีการสร้างโปรแกรมจาก Openframeworks คือ อาศัยการ extends คลาส ofBaseApp ซึ่งเป็น base class สำหรับทุกๆ app ที่สร้างจาก openframeworks โดยในตัวคลาส ofBaseApp จะมี function หลักๆที่ควบคุม event การทำงานของโปรแกรมอยู่ 10 function คือ

Functor Type Class

นิยามไว้ว่า

class Functor f where
fmap :: (a -> b) -> f a -> f b

นั่นคือ Type ที่เป็น instance ของ type class นี้จะต้องสร้างฟังก์ชัน fmap โดยฟังก์ชันนี้รับค่าฟังก์ชัน (a->b) และ f a แล้วจะได้ f b
จะเห็นว่า เราเอา type f มาทำเป็นข้อมูลแบบ f a แสดงว่า instance ของ Functor ต้องเป็น type ที่มี constructor ที่รับ parameter อีก 1 ตัวเพื่อทำให้สามารถเขียนเป็น f a , f b ได้ จาก type ของฟังก์ชัน fmap จะเห็นว่ามีลักษณะเดียวกันกับฟังก์ชัน map

map :: (a -> b) -> [a] -> [b].

จะเห็นว่า map คือรับฟังก์ชันที่รับค่าเป็น type a แล้วได้ผลลัพธ์เป็น type b แล้วรับลิสต์ของ type a และจะได้ผลลัพธ์เป็นลิสต์ของ type b
นั่นคือ ลิสต์เป็น instance ของ Functor เขียน instance ได้ดังนี้

instance Functor [] where
fmap = map

โดยที่ [] เป็น constructor ของข้อมูลแบบลิสต์

อีกตัวอย่าง type ที่สามารถเป็น instance ของ Functor ได้อีกคือ Maybe

instance Functor Maybe where
fmap f (Just x) = Just (f x)
fmap f Nothing = Nothing

นั่นคือ การ map function f ไปที่ข้อมูลแบบ Maybe ถ้าเป็น Just x จะได้ค่า Just (f x)
ถ้า map ไปที่ Nothing จะได้ Nothing

ส่วน Either a b = Left a | Right ก็สามารถสร้างเป็น instance ของ Functor ได้เช่นกัน

instance Functor (Either a) where
fmap f (Right x) = Right (f x)
fmap f (Left x) = Left x

จะเห็นว่าเราทำให้ Either เป็น type ที่รับ type parameter แค่ตัวเดียวได้โดยทำหนดให้ type ที่ส่งไปทำเป็น instance มี type a ติดเข้าไปด้วย ทำให้มันเหลือแค่ต้องรับค่า type b เพิ่มเข้าไป ทำให้เวลา map function f เข้าไปกับ (Left x) ได้ Left x เหมือนเดิม และเมื่อรับ Right x จะได้ Right (f x)

Functor Law

Functor จะมีกฎอยู่ 2 ข้อคือ
1) The first functor law states that if we map the id function over a functor, the functor that we get back should be the same as the original functor.
ถ้าเรา map function id เข้าไปที่ functor จะได้ functor เดิมกลับมา

fmap id = id

2) The second law says that composing two functions and then mapping the resulting function over a functor should be the same as first mapping one function over the functor and then mapping the other one.
ถ้าเรา map composing function เข้าไปจะมีผลเท่ากับการ เอาฟังก์ชันแรกไป map functor แรก composing กับ อีกฟังก์ชัน map กับ functor ที่ 2

fmap (f . g) = fmap f . fmap g. Or to write it in another way, for any functor F, the following should hold: fmap (f . g) F = fmap f (fmap g F).

เพลงประกอบเอนิเมชันเรื่อง Moonlight Mile เพราะดี เพิ่งเช่ามาอ่านได้เล่มเดียว เป็นเรื่องราวของนักปีนเขาสองคน ที่ปีนเขาจนหมดแล้ว เลยคิดจะปีนต่อไปดวงจันทร์

มีปัญหากับ ssh บน ubuntu มาตั้งแต่ 9.10 แล้วคือเวลาใช้แต่ละที มันจะรอนานมากๆกว่าจะขึ้นให้ใส่ password แต่เวลาใช้ ssh บน terminal ของ osx กลับเร็วปกติ ไม่มี delay อะไรเลย ก็ทนๆใช้ไปไม่ได้หาทางออกอะไร เมื่อวานก่อนก็เลยบ่นๆไปใน twitter ก็มี @sugree ตอบให้ว่า @iporsut อันนี้ก็ได้ https://bugs.launchpad.net/ubuntu/+source/openssh/+bug/84899 ก็เลยเข้าไปดูที่ https://bugs.launchpad.net/ubuntu/+source/openssh/+bug/84899 ก่อนไล่ๆดูไปนะ ไม่ค่อยเข้าใจหรอกว่ามันเป็นปัญหาอะไร แต่ก็ไปเจอวิธีแก้อันนึง บอกให้เวลาเรียก ssh ให้ใส่ option แบบนี้ไปด้วย

 ssh -o GSSAPIAuthentication=no 

แล้วค่อยตามด้วย accout@domain ก็ลองทำตามดู เออ โอเคเร็วเลยทีนี้ ทีนี้จะมานั่งใส่แบบนี้มันทุกครั้งก็ขี้เกียจก็เลยใช้คำสั่งของ bash คือ alias เพื่อย่อคำสั่ง ssh แบบที่มีติด option นี้ไปด้วยให้เหลือแค่ ssh แบบนี้

 alias ssh="ssh -o GSSAPIAuthentication=no" 

ทีนี้เวลาไปเรียก ssh มันก็ใส่ option ไอ้แบบนี้ให้เราตลอดเองเลย ต่อไปก็คือ ขี้เกียจมานั่ง alias ตลอด เราก็เอาคำสั่ง alias เมื่อกี้ไปใส่ไว้ใน ~/.bashrc ซะมันจะได้เรียกให้ทำงานตลอดเมื่อเราเปิด terminal ขึ้นมา เพียงเท่านี้ก็ไม่ต้องทนรอเวลาใช้ ssh อีกต่อไปแล้ว
ขอบคุณ @sugree ขอบคุณ twitter ได้คำตอบแบบไม่ได้ตั้งใจ ตรงประเด็นกว่านั่น search กูเกิ้ลเองอีก