May. 23rd, 2013
Cello
(10x
polycode)
(10x
![[livejournal.com profile]](https://www.dreamwidth.org/img/external/lj-userinfo.gif)
/* Another Example Cello Program */ #include "Cello.h" int main(int argc, char** argv) { /* Tables require "Eq" and "Hash" on key type */ var prices = new(Table, String, Int); put(prices, $(String, "Apple"), $(Int, 12)); put(prices, $(String, "Banana"), $(Int, 6)); put(prices, $(String, "Pear"), $(Int, 55)); /* Tables also supports iteration */ foreach (key in prices) { var price = get(prices, key); print("Price of %$ is %$\n", key, price); } /* "with" automatically closes file at end of scope. */ with (file in open($(File, NULL), "prices.bin", "wb")) { /* First class function object */ lambda(write_pair, args) { /* Run time type-checking with "cast" */ var key = cast(at(args, 0), String); var val = cast(get(prices, key), Int); try { print_to(file, 0, "%$ :: %$\n", key, val); } catch (e in IOError) { println("Could not write to file - got %$", e); } return None; }; /* Higher order functions */ map(prices, write_pair); } delete(prices); }
ну чё, ещё позитиву?
May. 23rd, 2013 10:08 pmВчера по дороге на работу чёрт дёрнул зайти в аптеку купить туалетного утёнка; и вот подъезжаю, встаю у парковки, перепускаю встречного - а встречный подъехал и бац на моё место. Найс! Так я ему и сказал: nice! very polite! На что тот взял да и извинился. На что я сказал never mind. Вьетнамец; чего это он будет глядеть по сторонам.
Сегодня в продмаге покупал сметану, рядом чёрная женщина выбирает, брать ли ей кнудсена или что ещё. Я её просветил, показал, что у кнудсена сметана сплошная химия, да ещё с крахмалом. Показал, какую надо брать (состав: сметана).
Потом пошел на кассу, там тётка выгружала свои товары, говорит - проходи, проходи, у меня много. Покочевряжился но прошел. У кассирши на петлице значок, мол Христос - это лучшее, что с ней в жизни случилось. Ну что, покивал; к Христу у меня претензий нету (не смейтесь). Кассирша мне и говорит - у вас чё там, клубника? У нас тут buy one get two free - короче за четыре, что ли, бакса я нагрузил полную кошелку, завтра на работу потащу.
Домой прихожу, выхожу на кухню, слышу мявк на огороде. Не запылилась. Откинулась с зоны, говоря современным русским языком. Жрать требует. И где мои котята. Ну извините.
Сегодня в продмаге покупал сметану, рядом чёрная женщина выбирает, брать ли ей кнудсена или что ещё. Я её просветил, показал, что у кнудсена сметана сплошная химия, да ещё с крахмалом. Показал, какую надо брать (состав: сметана).
Потом пошел на кассу, там тётка выгружала свои товары, говорит - проходи, проходи, у меня много. Покочевряжился но прошел. У кассирши на петлице значок, мол Христос - это лучшее, что с ней в жизни случилось. Ну что, покивал; к Христу у меня претензий нету (не смейтесь). Кассирша мне и говорит - у вас чё там, клубника? У нас тут buy one get two free - короче за четыре, что ли, бакса я нагрузил полную кошелку, завтра на работу потащу.
Домой прихожу, выхожу на кухню, слышу мявк на огороде. Не запылилась. Откинулась с зоны, говоря современным русским языком. Жрать требует. И где мои котята. Ну извините.