пятницы, 13-е

[ocehb]

ближайшие пятницы, 13-е

# d=0; a=0; \
  while [[ $a != 48 ]]; do \
    d=$[ $d+1 ]; \
    [[ $(date --date="$d day" +"%u") == 5 && $(date --date="$d day" +"%d") == 13 ]] || continue; \
    print -f "%3d. " $a; date --date="$d day" +"%d-%m-%Y"; \
    a=$[ $a+1 ];
  done
  0. 13-11-2009
  1. 13-08-2010
  2. 13-05-2011
  3. 13-01-2012
  4. 13-04-2012
  5. 13-07-2012
  6. 13-09-2013
  7. 13-12-2013
  8. 13-06-2014
  9. 13-02-2015
 10. 13-03-2015
 11. 13-11-2015
 12. 13-05-2016
 13. 13-01-2017
 14. 13-10-2017
 15. 13-04-2018
 16. 13-07-2018
 17. 13-09-2019
 18. 13-12-2019
 19. 13-03-2020
 20. 13-11-2020
 21. 13-08-2021
 22. 13-05-2022
 23. 13-01-2023
 24. 13-10-2023
 25. 13-09-2024
 26. 13-12-2024
 27. 13-06-2025
 28. 13-02-2026
 29. 13-03-2026
 30. 13-11-2026
 31. 13-08-2027
 32. 13-10-2028
 33. 13-04-2029
 34. 13-07-2029
 35. 13-09-2030
 36. 13-12-2030
 37. 13-06-2031
 38. 13-02-2032
 39. 13-08-2032
 40. 13-05-2033
 41. 13-01-2034
 42. 13-10-2034
 43. 13-04-2035
 44. 13-07-2035
 45. 13-06-2036
 46. 13-02-2037
 47. 13-03-2037
#

на остальные не хватило разрядности.

Comments

[sandra77.livejournal.com]

Хии! Это ты сам такую программку написал?

[jerom.livejournal.com]

Нет, это слишком сложно. Мою программу перепёр на родной язык.

[ocehb]

# perl -MDate::Simple=today -le '$t = today; print join "\n",map { $_ } grep { $_->day_of_week == 5 && $_->day == 13 } map { $t+$_ } 1..365000' | wc -l
1720
#

жить можно :)

[ocehb]

угу :)