Флудилка:)

[dojik]

Даешь юзербары с фином!!

Ага, даешь юзербары в принципе!

[Dmytro]

Ага, даешь юзербары в принципе!

Не, не надо. Вот фанам фина - исключение.

[IK91]

ну да, это когда для любого контру алгебраическая сумма ЭДС, равна, алгебраической сумме падения напряжения

[dojik]

ну да, это когда для любого контру алгебраическая сумма ЭДС, равна, алгебраической сумме падения напряжения

Это на какой пост ответ? Про бдсм?

[Static-X]

Народ, тут кто Судоку решает?  

[βεερ_βooρ]

И что Значит всем его юзать нужно?

Ну это же выбор партии!

[dojik]

Народ, тут кто Судоку решает?  

На Мотроле Л9 это стандартная игрушка))

[IK91]

ой, я протупил, писал ваще типу на локальный форум, написал тут и хотел сделать ктрл+с, в итоге отправил смс ))))))))

[graved1gger]

Народ, тут кто Судоку решает?  

мой отец... м...в туалете из местных газеток

[Hryak]

Ну это же выбор партии!

Сталинизм, однако.

[βεερ_βooρ]

Народ, тут кто Судоку решает?  

Это:

Код Виділити Розширити

import System
import Control.Monad
import Data.List
import Data.Array.IO

type SodokuBoard = IOArray Int Int

main = do
   [f] <- getArgs
   a <- newArray (1, 81) 0
   readFile f >>= readSodokuBoard a
   putStrLn "Original:"
   printSodokuBoard a
   putStrLn "Solutions:"
   solve a (1,1)

readSodokuBoard a xs = sequence_ $ do (i,ys) <- zip [1..9] (lines xs)
                                     (j,n)  <- zip [1..9] (words ys)
                                     return $ writeBoard a (j,i) (read n)

printSodokuBoard a =
  let printLine a y =
    mapM (\x -> readBoard a (x,y)) [1..9] >>= mapM_ (putStr . show) in
                    putStrLn "-----------" >>
                    mapM_ (\y -> putStr "|" >> printLine a y >> putStrLn "|") [1..9] >>
                    putStrLn "-----------"

-- the meat of the program.  Checks the current square.
-- If 0, then get the list of nums and try to "solve' "
-- Otherwise, go to the next square.
solve :: SodokuBoard  -> (Int, Int) -> IO (Maybe SodokuBoard)
solve a (10,y) = solve a (1,y+1)
solve a (_, 10)= printSodokuBoard a >> return (Just a)
solve a (x,y)  = do v <- readBoard a (x,y)
                   case v of
                     0 -> availableNums a (x,y) >>= solve' a (x,y)
                     _ ->  solve a (x+1,y)
    -- solve' handles the backtacking
 where solve' a (x,y) []     = return Nothing
       solve' a (x,y) (v:vs) = do writeBoard a (x,y) v   -- put a guess onto the board
                                  r <- solve a (x+1,y)
                                  writeBoard a (x,y) 0   -- remove the guess from the board
                                  solve' a (x,y) vs      -- recurse over the remainder of the list

-- get the "taken" numbers from a row, col or box.
getRowNums a y = sequence [readBoard a (x',y) | x' <- [1..9]]
getColNums a x = sequence [readBoard a (x,y') | y' <- [1..9]]
getBoxNums a (x,y) = sequence [readBoard a (x'+u, y'+v) | u <- [0..2], v <- [0..2]]
 where x' = (3 * ((x-1) `quot` 3)) + 1
       y' = (3 * ((y-1) `quot` 3)) + 1

-- return the numbers that are available for a particular square
availableNums a (x,y) = do r <- getRowNums a y
                          c <- getColNums a x
                          b <- getBoxNums a (x,y)
                          return $ [0..9] \\ (r `union` c `union` b)  

-- aliases of read and write array that flatten the index
readBoard a (x,y) = readArray a (x+9*(y-1))
writeBoard a (x,y) e = writeArray a (x+9*(y-1)) e

[βεερ_βooρ]

Сталинизм, однако.

А знаетели вы что...
... Син стал модератором после того как стал пользовться AIMP?

[S!N]

А знаетели вы что...
... Син стал модератором после того как стал пользовться AIMP?

Тссс....не пали

[Hryak]

А знаетели вы что...
... Син стал модератором после того как стал пользовться AIMP?

Намёк понятен... Где там Николай?

[dojik]

А знаетели вы что...
... Син стал модератором после того как dojik сказл ему кодить через него?

Да, конечно.

[Antivirus]

Народ, тут кто Судоку решает?  

ну.

[Static-X]

Это:

нипанятна... Спилберг...

Добавлено: 05 Березень 2009, 22:07:24

ну.

кульная весчь, убивает время на учебе=))

[βεερ_βooρ]

Тссс....не пали

А Поттер стал модератором после того как зафрендил фин-а?
Пруфлинк с чистосердечным признанием:
http://www.dpk.com.ua/forums/index.php?topic=4031.msg149415#msg149415

[Hryak]

ну.

[dojik]

кульная весчь, убивает время на учебе=))

Ааа, а мы думали надо решать))

[βεερ_βooρ]

нипанятна... Спилберг...

То программка на Хаскел, которая решает судоку

[Potter]

 Развей мою боль...
  Смотри мне в глаза...

[Static-X]

То программка на Хаскел, которая решает судоку

А ее можно интегрировать в моск?

Добавлено: 05 Березень 2009, 22:09:50

Развей мою боль...
   Смотри мне в глаза...

О_О

[Antivirus]

кульная весчь, убивает время на учебе=))

У меня и так есть чем убивать время на учебе. Учобой!

[βεερ_βooρ]

А ее можно интегрировать в моск?

Ага, сформируй в своей когнитивной матрице виртуаьную хаскель-машину.

[dojik]

А ее можно интегрировать в моск?

Добавлено: Thu Mar  5 22:09:50 2009
О_О

Конечно, ее можно, но интерпретартор хаскла интегрируется только линуксоидным мозгам.

[Hryak]

Сегодня флуд врасброс получилсяю Все говорили много, но каждый о своём.
Спокойной ночи

[Static-X]

Ааа, а мы думали надо решать))

Хочешь решать?
На:


Добавлено: 05 Березень 2009, 22:11:34

Ага, сформируй в своей когнитивной матрице виртуаьную хаскель-машину.

Ммм.. Надо подождать немного, пока матрица задействует свои силы и пошлет мне белого кролика...

[dojik]

Хочешь решать?
На:


Добавлено: 05 Березень 2009, 22:11:34
Ммм.. Надо подождать немного, пока матрица задействует свои силы и пошлет мне белого кролика...

Щас, перегружусь в убунту, которую снес 2 месяца назад)

[Static-X]

только линуксоидным мозгам.

Черт, этот ансуппортинг... Надо крякать!!!

[LIK]

айТюнс удобный тоже))

в нем радио не плохое...

Народ, тут кто Судоку решает?

когда не чего читать то иногда напрягаю моск... а зачем интересуешься...

[dojik]

Черт, этот ансуппортинг... Надо крякать!!!

Это называется портировать.

когда не чего читать то иногда напрягаю моск... а зачем интересуешься...

Надо научиться читать

[Static-X]

а зачем интересуешься...

мм.. это риторика?

[Serafima]

Сегодня флуд врасброс получилсяю Все говорили много, но каждый о своём.
Спокойной ночи Подмигивающий

ну да, укого что болит, тот о том и говорит

Спокойной ночи!

[LIK]

Надо научиться читать

просто отвлекся, а посты как ламануться, вот и получилась накладка

Добавлено: 05 Березень 2009, 22:17:02

мм.. это риторика?

даже не знаю

[dojik]

просто отвлекся, а посты как ламануться, вот и получилась накладка

Ну вот для этого и решают судоку - мозг развивать)))

[Potter]

Спокойной ночи!

Спокойной ночи!

Я, пожалуй, тоже пойду спать. Завтра снова дневная смена- надо же как-то попасть на концерт 12-го в Рок-кахве

[Dmytro]

Serafima
Привет. Как там в серверной?

[Potter]

Всем бб

[LIK]

Ну вот для этого и решают судоку - мозг развивать)))

японский кроссворд тоже ниче....

[dojik]

от меня тоже всем бб, пойду греться.

[S!N]

Serafima
Привет. Как там в серверной?

Ооо, я два дня провел в серверной. Всэ гудэ, мыгае...повсюду дроты...кароч не уютно...

[dojik]

И штобэ зафтро была новая галасавалка.  

[S!N]

И штобэ зафтро была новая галасавалка.  

Тах точна, товарисч доджег!

[Serafima]

Serafima
Привет. Как там в серверной?

Привет! Я там не была, но SiN сказал что не плохо

Добавлено: 05 Березень 2009, 22:28:44

Спокойной ночи!

И тебе спокойной ночи!

[Dmytro]

Ооо, я два дня провел в серверной. Всэ гудэ, мыгае...повсюду дроты...кароч не уютно...

Тама - патчи, тама - свитчи, справа роутер в углу, а одмин, нахохлив свитер, пьет из баночки туфту! (с)

[graved1gger]

http://www.dpk.com.ua/forums/index.php?topic=2058.msg340148#msg340148
мего_пиар

[Jack1834]

как не странно, но я в люлю. а то завтра просплю... эээ...
з.ы. завтра в школе надо поздравлять с 8... ыыы

[S!N]

Тама - патчи, тама - свитчи, справа роутер в углу, а одмин, нахохлив свитер, пьет из баночки туфту! (с)

Дадада!

но SiN сказал что не плохо

я сказал, что не уютно))

[Static-X]

У кого нету денег на такси - ездиет на маршруткам!!!