Madhur
@madhurparihar.bsky.social
Research @ BarrowNeuro. Ex- @lieberinstitute.bsky.social
Here for Rstats
He/him
Here for Rstats
He/him
After some afterthought, reading as table.
![library(tidyverse)
library(limma)
input = read.table("clipboard-128000")
##Part 1
ans1 = sum(abs(diff(t(apply(input,2,sort)))))
ans1
##Part 2
ans2 = table(input$V2)[as.character(input$V1)] %>% tibble::enframe() %>%
summarise(ans = sum(as.numeric(name)*value, na.rm = T)) %>% pull(ans)
ans2](https://cdn.bsky.app/img/feed_thumbnail/plain/did:plc:6vf5go7madxqz2g6nybnamki/bafkreiaodb62r3zzypy772smvn2m6mlehfvzu4cx7tgzfcg5nqbzaebcmq@jpeg)
December 1, 2024 at 8:25 AM
After some afterthought, reading as table.
![library(tidyverse)
library(limma)
input = readClipboard()
##Part 1
ans1 = sum(abs(diff(t(apply(strsplit2(input," "),2,function(x) {sort(as.numeric(x))})))))
ans1
##Part 2
tmp = strsplit2(input," ")
ans2 = table(tmp[,2])[tmp[,1]] %>% tibble::enframe() %>%
summarise(ans = sum(as.numeric(name)*value, na.rm = T)) %>% pull(ans)
ans2](https://cdn.bsky.app/img/feed_thumbnail/plain/did:plc:6vf5go7madxqz2g6nybnamki/bafkreigg52ie4jzhuirfsiuvqnjzz4cjb424sgisbndoico577n5tdlb4m@jpeg)
