Day 1: Historian Hysteria

Megathread guidelines

  • Keep top level comments as only solutions, if you want to say something other than a solution put it in a new post. (replies to comments can be whatever)
  • You can send code in code blocks by using three backticks, the code, and then three backticks or use something such as https://blocks.programming.dev if you prefer sending it through a URL

FAQ

  • @Euro@programming.dev
    link
    fedilink
    22 days ago

    Viml

    I think viml is a very fun language, i like weird languages lol, so this year im doing it in viml while trying to use as many of the original ed/ex commands as i can (:d, :p, :a, :g, …)

    Part 1
    !cp ./puzzle1 ./puzzle1.editing
    e ./puzzle1.editing
    
    1,$sort
    let row1 = []
    
    g/^\d/let row1 = add(row1, str2nr(expand("<cword>"))) | norm 0dw
    1d
    1,$sort
    g/^\d/execute 'norm cc' .. string(abs(expand("<cword>") - row1[line('.') - 1]))
    
    $a|---ANSWER---
    0
    .
    1,$-1g/^\d/call setline("$", str2nr(getline("$")) + str2nr(expand("<cword>")))
    
    Part 2
    read ./puzzle1
    
    let cnt = 0
    g/^\d/let cnt += expand("<cword>") *
                \ searchcount(#{pattern: '\s\+' .. expand("<cword>")}).total
    
    echo cnt .. "\n"
    
    w! ./puzzle1.editing