tiphareth: привет из африки

(Добавить комментарий)

	(Анонимно) 2008-12-23 03:22 (ссылка)
	Факт. (Ответить)

	(Анонимно) 2008-12-23 03:42 (ссылка)
	Там есть интернет?! (Ответить)

	r_l 2008-12-23 04:44 (ссылка)
	Фиделя видал? (Ответить) (Ветвь дискуссии)

	tiphareth 2008-12-23 21:10 (ссылка)
	увы а он жив вообще? (Ответить) (Уровень выше) (Ветвь дискуссии)

	r_l 2008-12-24 01:46 (ссылка)
	Говорят. И даже хвалит иногда Путина и других храбрых экспортеров нефти. (Ответить) (Уровень выше)

	(Анонимно) 2008-12-23 05:32 (ссылка)
	Давай Миша! Жду с нетерпением! Чем гротескнее, тем интереснее! (Ответить)

	er2000 2008-12-23 06:25 (ссылка)
	WOW Миша -- там уже есть интернет в отелях! (Ответить)

	kotofey 2008-12-23 10:43 (ссылка)
	кулак с обрезом? (Ответить)

	(Анонимно) 2008-12-23 11:04 (ссылка)
	Миша, зачем вы ходите на двач и растлеваете малолетних!! отвечайте на ответ! (Ответить)

	argonov 2008-12-23 15:59 (ссылка)
	Миша, оффтоп мы сделали первый клип в стиле схематик http://store.complexnumbers.lenin.ru/vi/inevitability_se_ru_beta.avi клип на научную тематику неебически (Ответить) (Ветвь дискуссии)

	tiphareth 2008-12-24 20:52 (ссылка)
	Божественно (Ответить) (Уровень выше)

	fuf! tisechneg.livejournal.com 2008-12-23 18:07 (ссылка)
	(Ответить) (Ветвь дискуссии)

Нет, здесь это делают так:

tristes_tigres
2008-12-24 04:50 (ссылка)

import Data.Graph.Inductive
import System.IO

sephirothL :: [LNode String]
sephirothL = [(1, "Keter"),
              (2, "Chokhmah"),
              (3, "Binah"),
              (4, "Chesed"),
              (5, "Geburah"),
              (6, "Tiphareth"),
              (7, "Netzach"),
              (8, "Hod"),
              (9, "Yezod"),
              (10 ,"Malkuth")]

edgesL = [(1, 2, "Ox"),
          (1, 3, "House"),
          (1, 6, "Camel"),
          (2, 3, "Door"),
          (2, 4, "Nail"),
          (2, 6, "Window"),
          (3, 5, "Fence"),
          (3, 6, "Sword"),
          (4, 5, "Serpent"),
          (4, 6, "Hand"),
          (4, 7, "Palm"),
          (5, 6, "Ox Goad"),
          (5, 8, "Water"),
          (6, 7, "Fish"),
          (6, 8, "Eye"),
          (6, 9, "Prop"),
          (7, 8, "Mouth"),
          (7, 9, "Fish-Hook"),
          (7, 10,"Back of Head"),
          (8, 9, "Head"),
          (8, 10,"Tooth")] :: [LEdge String]

treeL :: Gr String String
treeL = mkGraph  sephirothL edgesL

main = writeFile "treeL.dot" (graphviz' treeL)

(Ответить) (Уровень выше)

	(Анонимно) 2008-12-23 18:21 (ссылка)
	Миша, а фотки где? (Ответить) (Ветвь дискуссии)

	tiphareth 2008-12-23 18:34 (ссылка)
	Я в аэропорту пока сижу вот приеду в Москву вот (Ответить) (Уровень выше)