| ## this snippet was the original gist but the Rmd solution below is even nicer | |
| ## auto-generate a visual index as README.md in current working directory | |
| fig_files <- list.files(pattern = "jpg$") # change to png$ as needed! | |
| writeLines(paste0(fig_files, "\n", | |
| "![`", fig_files, "`](", fig_files, ")\n\n"), "README.md") |
People
 :bowtie: |
😄 :smile: |
😆 :laughing: |
|---|---|---|
😊 :blush: |
😃 :smiley: |
:relaxed: |
😏 :smirk: |
😍 :heart_eyes: |
😘 :kissing_heart: |
😚 :kissing_closed_eyes: |
😳 :flushed: |
😌 :relieved: |
😆 :satisfied: |
😁 :grin: |
😉 :wink: |
😜 :stuck_out_tongue_winking_eye: |
😝 :stuck_out_tongue_closed_eyes: |
😀 :grinning: |
😗 :kissing: |
😙 :kissing_smiling_eyes: |
😛 :stuck_out_tongue: |
| ###### Project Euler ######## | |
| # Problem 1 | |
| # If we list all the natural numbers below 10 that are multiples of 3 or 5, | |
| # we get 3, 5, 6 and 9. The sum of these multiples is 23. | |
| # Find the sum of all the multiples of 3 or 5 below 1000. | |
| # Approach 1 |