Peder2911

memoize <- function(fn,...,cache = "cache"){
   if(file.info(cache)$isdir){
      fnName <- as.character(substitute(fn))
      args <- sapply(as.list(...),as.character)
      repr <- paste0(c(fnName,args))
      cache <- file.path(cache,digest::sha1(repr))
   } else {

   }

Peder2911

# Du har to krystallkuler. O O
# Du skal finne ut hva som er den høyeste etasjen du kan slippe krystallkulene fra, uten at de knuser.
# 1. Skriv en algoritme som finner det øverste etasjenummeret der kulene ikke knuser. 
#    (ground floor == 1. Etasje).
# 2. Hva er optimal kjøretid for en slik algoritme i big O notasjon?

# Denne listen viser hvilke etasjer kulene knuser på (True hvis kulen knuser).

data = [
   True,  #                                                 \     /