Tonguç Yumruk'un Weblog'u
Anlık olaylar, fikirler, gudik ismail vs...

Tue, 25 Oct 2011

Steve Jobs ile başlayıp Dennis Ritchie ile devam eden Ekim ayı giderayak LISP'in (evet o zamanlar büyük harfle yazılıyordu) babası, yapay zeka alanının yılmaz araştırmacısı John McCarthy'yi de yanında götürmeye karar vermiş. Ne diyelim, Siri ile dertleşirken kendisinin babaannesi Eliza'yı ve bu ailenin ortaya çıkmasında büyük emeği olan McCarthy'yi de unutmazsınız umarım.

[08:57] | [] | # | G! |

Thu, 13 Oct 2011

İnsanlığın başına gelen en büyük iki baş belası olan C Programlama Dili ve UNIX'in yaratıcısı Dennis MacAllstair Ritchie artık yok. Acaba kendisine saygı duruşu olarak yarattığı teknolojileri kullanan bütün sistemlerimizi bir dakikalığına kapatsak mı? Bir düşünün bakalım, C ve UNIX kullanan herşey sadece birkaç dakika topluca kapansa dünya nasıl bir yer olurdu?

[18:44] | [] | # | G! |

Tue, 21 Jun 2011

Görünüşe bakılırsa Bilgi Bilgisayar Bilimleri (hani şu kapatılan) trendleri yakından takip ediyor. İyi seyirler.

İlerleyen haftalardaki sunumlar için cs-discuss ve cs-announce'u takip etmeyi unutmayın. (ipucu: Kuşlar bana bu Perşembe devamı yapılacak dedi.)

[14:22] | [] | # | G! |

Sun, 08 May 2011

İşte yine yılın o zamanı geldi. Bir blog post ile daha karşınızdayım. Bu seferki konumuz TC kimlik numarası doğrulamak. Aşağıdaki kod parçası ile verilen bir TC kimlik numarasının geçerli olup olmadığını kontrol edebiliyorsunuz. Tabii Haskell elegansıyla. Bon appétit.

(^!) :: Integer -> Integer -> Integer
n ^! m = (n `mod` 10^m) `div` 10^(m-1)

evenDigits n = [n ^! k | k <- [2,4..]]
oddDigits n = [n ^! k | k <- [1,3..]]

tckimlikHashes n = (tenthHash, eleventhHash)
  where
    oddSum = sum $ take 5 $ tail $ oddDigits n
    evenSum = sum $ take 4 $ tail $ evenDigits n
    tenthHash = (7*oddSum - evenSum) `mod` 10
    eleventhHash = ((oddSum + evenSum + tenthHash) `mod` 10)
    
tckimlikVerify n = ((n ^! 2) == x) && ((n ^! 1) == y)
  where
    (x,y) = tckimlikHashes n

Not: Bu kod parçasıyla yapılabilecek başka şeyler de var tabii. Onları da yaratıcılığınıza bırakıyorum.

[21:34] | [] | # | G! |

Sun, 10 Aug 2008

Bence Common Lisp versiyonundan daha güzel.

module Main where

import System.Time

tdiff d = do now <- getClockTime
             return $ diffClockTimes d now

safak = toClockTime (CalendarTime 2008 September 16 0 0 0 0 Tuesday 0 "" 0 True)

main = tdiff safak >>= return . (timeDiffToString . normalizeTimeDiff) >>= print
tonguc@terra:~% runhaskell Main.hs
"1 month, 6 days, 6 hours, 16 mins, 20 secs"
tonguc@terra:~%
[20:46] | [] | # | G! |
Elektrikli Posta
Uptime
1 yıl, 18 gün, 19 saat, 4 dakika
Çocuklara Bilgisayar
Kategoriler
/ (201)
  dev/ (13)
  kod/ (28)
  life/ (2)
  linux/ (38)
    freedays/ (2)
    senlik/ (0)
      2006/ (15)
  misc/ (58)
  mobil/ (3)
  musiki/ (18)
  net/ (10)
  tech/ (9)
  web/ (5)
Zaman Makinesi
< October 2011 >
SuMoTuWeThFrSa
       1
2 3 4 5 6 7 8
9101112131415
16171819202122
23242526272829
3031     
Kapı Komşuları
Güzel Siteler
Ivır zıvır
XML Feed

FSF Associate Member: 2040

Powered by PyBlosxom

Valid XHTML 1.0!