Apply the same function with multiple columns as inputs to multiple columns in R with tidyverse

Question

As an example, I have the following data frame:

df <- data.frame(a1=1,a2=2,a3=3,b1=1,b2=2,b3=3)

I have a function:

fn <-