May. 23rd, 2013
Cello
(10x
polycode)
(10x
/* 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 - короче за четыре, что ли, бакса я нагрузил полную кошелку, завтра на работу потащу.
Домой прихожу, выхожу на кухню, слышу мявк на огороде. Не запылилась. Откинулась с зоны, говоря современным русским языком. Жрать требует. И где мои котята. Ну извините.