프로그래밍/F# 31

스트링 리스트에서 스트링 찾기(find) with F#

[파일명: TestStringFindInList.fs]------------------------------------------------ #light let find arr s = List.findIndex (fun x -> x = s) arr let printList data = let rec loop l = match l with | x::[] -> printf "%O" x | x::xs -> printf "%O, " x; loop xs | [] -> printf "" printf "[" loop data printf "]" // Begin here let cmdArgs = System.Environment.GetCommandLineArgs() let words = ["하나"; "둘"; "셋"; ..

프로그래밍/F# 2010.07.16

스트링 배열 정렬(sorting)하기 with F#

printList 함수를 F#의 함수형 언어의 특징을 살려 (꼬리 재귀호출과 match 표현을 이용하여) 구현하였다. [파일명: TestSort.fs]------------------------------------------------ #light let printList data = let rec loop l = match l with | x::[] -> printf "%O" x | x::xs -> printf "%O, " x; loop xs | [] -> printf "" printf "[" loop data printf "]" // Begin here let cmdArgs = System.Environment.GetCommandLineArgs() let b = cmdArgs.[1..] |> Arr..

프로그래밍/F# 2010.07.16

손으로 계산하는 긴자리 곱셈표 만들기 with F#

초등학교 때 배우던 두 정수의 곱셈표를 만들어 주는 F# 소스이다. 이 소스는 Python 소스를 F# 소스로 변환한 것이라 F#의 명령형 언어 특징을 위주로 짜여져 있다. (* * Filename: MakeMultTable.fs * * Print a multiplication table. * * Compile: fsc MakeMultTable.fs * Execute: MakeMultTable 230 5100 * * Date: 2010/07/15 * Author: PH Kim [ pkim ((AT)) scripts.pe.kr ] *) #light exception RuntimeError of string exception ValueError of string let println s = printfn "..

프로그래밍/F# 2010.07.15

손으로 만드는 나눗셈 계산표 with F#

다음은 초등학교에서 배우는 나눗셈 계산표를 만들어주는 F# 소스 코드이다. 나눗셈 계산표를 완성하고 나서 약수, 배수 관계를 알려준다. 아래의 소스는 Python 용 소스를 F# 용 소스로 거의 일대일 변환한 것이라서, F# 언어의 명령형 언어의 특징을 위주로 짜여져 있다. (* * Filename: MakeDivisionTable.fs * * Purpose: Make a division table in a handy written form. * * Compile: fsc --codepage:949 MakeDivisionTable.fs * * Execute: MakeDivisionTable 12345 32 * MakeDivisionTable 500210 61 * MakeDivisionTable 234 5..

프로그래밍/F# 2010.07.15

7비트 ASCII 코드표 만들기 예제 with F#

ASCII(애스키)란 American Standard Code for Information Interchange의 줄임글로서, 영문자에 기초한 문자 인코딩이다. 이 문자 인코딩에는 C0 제어문자(C0 control character)도 포함되어 있다. ( 참고: ASCII - Wikipedia, the free encyclopedia ) 다음은 7bit ASCII 코드표를 만들어 보여주는 F# 소스 코드이다. 소스 코드 중에 진법변환에 필요한 함수 atoi(string, radix) itoa(number, radix) 를 F# 코드로 자체 작성하여 사용하였다. (아래의 소스는 Python 소스를 F# 소스로 일대일 변환 수정한 것이라서, F# 언어의 명령형 언어 특징을 위주로 작성되어 있다.) (* * ..

프로그래밍/F# 2010.07.15

진법(radix) 표 만들기 예제 with F#

컴퓨터 프로그래밍에서 꼭 알아두어야 할 주요 진법은 당연히 10진법, 2진법, 8진법, 16진법이다. 다음은 0 에서 15 까지의 정수를 10진법, 2진법, 8진법, 16진법의 표로 만들어 보여주는 F# 소스 코드이다. 진법 변환에 필요한 함수 atoi(string, radix) itoa(number, radix) 를 F# 코드로 자체 작성하여 사용하였다. (아래의 소스는 Python 소스를 F# 소스로 일대일 변환 수정한 것이라서, F# 언어의 명령형 언어 특징을 위주로 작성되어 있다.) (* * Filename: MakeRadixTable.fs * Show the radix table with 10-, 2-, 8-, 16-radices. * * Compile: fsc MakeRadixTable.fs ..

프로그래밍/F# 2010.07.15

대화형 모드의 진법(radix) 변환 예제 with F#

다음은 대화형 모드(interactive mode)에서 진법 변환(radix conversion)하는 F# 소스 코드이다. 주: 이 소스는 Python 용으로 만들어 둔 소스를 F# 언어로 바꾼 것이라서 F# 언어의 명령형 언어 특징을 위주로 짜여져 있다. 메뉴는 주메뉴 Command: (S)et radix, (A)bout, (Q)uit or E(x)it 와 부메뉴 SubCommand: 'main()' to goto Main menu, 'exit()' or 'quit()' to exit 로 구성되어 있으며, 진법 변환의 핵심은 소스 코드에 자체 작성된 함수 atoi(string, radix)와 itoa(number, radix)의 사용이다. let value = atoi(str, srcRdx) let s..

프로그래밍/F# 2010.07.14

황금비율(golden ratio) 구하기 with F#

다음은 이차방정식 x^2 - x - 1 = 0 의 양의 근 즉 황금비율(golden ratio)을 구하는 F# 소스이다. 황금비율을 구하는 비례방정식은 1 : x = x : (x+1) 이며, 이를 이차방정식으로 표현한 것이 x^2 - x - 1 = 0 이다. See: http://en.wikipedia.org/wiki/Golden_ratio (* * Filename: TestGoldenRatio.fs * 황금률(즉, 이차방정식 x^2 - x - 1 = 0 의 양의 근)을 계산한다. * * Compile: fsc testGoldenRatio.fs * Execute: testGoldenRatio * * Date: 2010/07/13 * Author: PH Kim [ pkim (AT) scripts.pe.kr..

프로그래밍/F# 2010.07.13

현재 시각 알아내기 for F#

현재 시각을 컨솔에 보여주는 간단한 F# 언어 소스 코드이다. UTC란 1970년 1월 1일 0시 0분 0초를 기준으로 하여 경과된 초 단위의 총 시간을 의미한다. * UTC(Universal Time Coordinated, 협정세계시, 協定世界時) (* * Filename: TestCTimeApp.fs * * Compile: fsc --codepage:949 TestCTimeApp.fs * * Execute: TestCTimeApp *) // namespace MyTestApp1 open System let weekNames = [| "일"; "월"; "화"; "수"; "목"; "금"; "토" |] let now = System.DateTime.Now let startOfEpoch = new DateT..

프로그래밍/F# 2010.07.13