Ciasto karobowe

Karob w postaci strąków zobaczyłem pierwszy raz w życiu w zeszłym roku w Adanie (zapakowany w sklepie, nie na drzewie). Indagowany na okoliczność co to jest, poznany tam Turek, powiedział mi, że oni to żują, ale można to też jeść. Na spróbowanie kupiłem jedną paczkę, która długo leżała w szafie, ale w końcu ją zjadłem i całkiem mi smakował. Zachęcony, zbadałem głębiej temat przy pomocy google no i natrafiłem m.in. na przepis na proste ciasto z karobu (tutaj):

Składniki (na jedną keksówkę 20x11cm): 1/2 szklanki i dwie łyżki (160g) mąki pszennej; 1/3 szklanki karobu (50g); 1 duży banan; 1/4 szklanki brązowego cukru (ja dałem 40g ksylitolu); 1/2 szklanki oleju (80g); 1/3 szklanki mleka roślinnego (ja lałem tyle mleka/wody żeby ciasto miało właściwą konsystencję); szklanka orzechów włoskich*; pół szklanki żurawiny; łyżeczka proszku do pieczenia; łyżeczka sody.

Drobna uwag: autor cytowanego bloga BTW rąbnął się i raz pisze laskowych a raz włoskich. Ja dałem włoskich m.in. dlatego, że w moim rankingu orzechów laskowe są na samym końcu.

Przygotowanie: zmieszać wszystko za wyjątkiem żurawin/orzechów, a banana zmienić na miazgę uprzednio. Dodać żurawiny i orzechy od masy. Zamieszać. Piec przez 30--35 minut (ja tam zawsze piekę na papierze, bo nie chce mi się myć formy:-)

Czyli super prosto a ciasto jest bardzo dobre...

Podsumowanie poprzedniego roku rowerowego

Podsumowanie zacząłem od wsadzenia (wreszcie) całego dorobku na githuba. Są tam detaliczne dane od 1993roku (27 lat, nie bójmy się słów); do tego w latach 1990--92 przejechałem 20,760, ale ten wyczyn nie jest, aż tak detalicznie udokumentowany. Razem wychodzi w latach 1990--2019 (30 lat) 242,355 km. Czyli do 250 tysięcy zostało 7645 km. Dam radę (jak zdrowie nie przeszkodzi)...

Na githubie jest w szczególności plik opus_magnum.csv, który zawiera cztery kolumny: dd;mm;yyyy;dist (dzień, miesiąc, rok oraz dystans; czasami dni mogą się powtarzać--to nie jest błąd, tylko oznacza, że jeździłem kilka razy dziennie):

require(ggplot2)
require(dplyr)

d <- read.csv("opus_magnum.csv", sep = ';', dec = ",",  header=T, na.string="NA");

dm <- d %>% mutate(cat = factor(yyyy)) %>%  group_by (cat) %>%
  summarise( tdist = sum(dist, na.rm=TRUE) /1000 ) %>%
  as.data.frame
  
yyyy.first <- first(dm$cat)
yyyy.last <- last(dm$cat)

time.period <- sprintf ("%s--%s", yyyy.first, yyyy.last)

p.m <- ggplot(dm, aes(x = cat, y = tdist )) +
    ggtitle(sprintf ("Distance by year (%s)", time.period)) +
    xlab("year") + ylab("ths km") +
    geom_bar(position = 'dodge', stat = 'identity', fill = "steelblue") +
    geom_text(data=dm, aes(label=sprintf("%.2f", tdist), y= tdist),
    vjust=1.5, color="darkblue", size=3 )
ggsave(p.m, file="opus_magnum.pdf", width=12)
### ###
cy <- 2019
d <- d %>% filter (yyyy == cy) %>% as.data.frame

rides = nrow (d)
total = sum (d$dist)
mride = mean (d$dist)

dm <- d %>% mutate(cat = factor(mm)) %>% group_by (cat) %>%
  summarise( ss = sum(dist, na.rm=TRUE)) %>%
  as.data.frame

p.m <- ggplot(dm, aes(x = cat, y = ss )) +
ggtitle(sprintf ("Cycling in %i (total: %.1f kms/ %i rides/ %.1f kms per ride)",
   cy, total, rides,  mride)) +
    xlab("month") + ylab("km") +
    geom_bar(position = 'dodge', stat = 'identity', fill = "steelblue", alpha=.5) +
    geom_text(data=dm, aes(label=sprintf("%.0f", ss), y= ss),
    vjust=1.5, color="white" )

p.m

outfile <- sprintf ("opus_%i.pdf", cy)
ggsave(p.m, file=outfile, width=10)

Wyniki obok.