Skip to content

Instantly share code, notes, and snippets.

@melriffe

melriffe/dates.st

Last active October 14, 2019 04:34
Download ZIP

Revisions

  1. melriffe revised this gist Oct 14, 2019. 1 changed file with 1 addition and 1 deletion.
    2 changes: 1 addition & 1 deletion dates.st
    View file
    Original file line number Diff line number Diff line change
    @@ -28,4 +28,4 @@ nextDate printNl.
    (nextDate addDays: (2 * oneWeek)) printNl
    (nextDate addDays: (3 * oneWeek)) printNl

    'Fin' printNl
    'Fin' printNl.
  2. melriffe revised this gist Oct 14, 2019. 1 changed file with 1 addition and 1 deletion.
    2 changes: 1 addition & 1 deletion dates.st
    View file
    Original file line number Diff line number Diff line change
    @@ -28,4 +28,4 @@ nextDate printNl.
    (nextDate addDays: (2 * oneWeek)) printNl
    (nextDate addDays: (3 * oneWeek)) printNl

    'Hello, world' printNl
    'Fin' printNl
  3. melriffe revised this gist Oct 14, 2019. 1 changed file with 2 additions and 3 deletions.
    5 changes: 2 additions & 3 deletions dates.st
    View file
    Original file line number Diff line number Diff line change
    @@ -8,15 +8,14 @@
    "

    | today nextDate isSaturday daysInMonth saturday oneWeek |
    | today nextDate isSaturday saturday oneWeek |
    saturday := 6.
    oneWeek := 7.
    isSaturday := false.
    today := Date today.
    nextDate := today firstDayOfMonth.
    daysInMonth := nextDate daysInMonth.

    1 to: daysInMonth do: [:x |
    1 to: oneWeek do: [:x |

    isSaturday := nextDate dayOfWeek = saturday.
    isSaturday
  4. melriffe revised this gist Oct 14, 2019. 1 changed file with 3 additions and 1 deletion.
    4 changes: 3 additions & 1 deletion dates.st
    View file
    Original file line number Diff line number Diff line change
    @@ -25,6 +25,8 @@ daysInMonth := nextDate daysInMonth.
    ].

    nextDate printNl.
    (nextDate addDays: oneWeek) printNl
    (nextDate addDays: (1 * oneWeek)) printNl
    (nextDate addDays: (2 * oneWeek)) printNl
    (nextDate addDays: (3 * oneWeek)) printNl

    'Hello, world' printNl
  5. melriffe revised this gist Oct 14, 2019. 1 changed file with 9 additions and 9 deletions.
    18 changes: 9 additions & 9 deletions dates.st
    View file
    Original file line number Diff line number Diff line change
    @@ -8,23 +8,23 @@
    "

    | today nextDate isSaturday daysInMonth |
    | today nextDate isSaturday daysInMonth saturday oneWeek |
    saturday := 6.
    oneWeek := 7.
    isSaturday := false.
    today := Date today.
    nextDate := today firstDayOfMonth.
    daysInMonth := nextDate daysInMonth.

    1 to: daysInMonth do: [:x |

    isSaturday := nextDate dayOfWeek = 6.
    isSaturday := nextDate dayOfWeek = saturday.
    isSaturday
    ifTrue: [ nextDate printNl ].
    ifTrue: [ ^ nextDate ].
    nextDate := nextDate addDays: 1.
    ]

    'Hello, world' printNl
    ].

    nextDate printNl.
    (nextDate addDays: oneWeek) printNl

    "today := Date year: 2019 month: 11 day: 11 hour: 0 minute: 0 second: 0."
    "today := Date newDay: 11 monthIndex: 11 year: 2019."

    'Hello, world' printNl
  6. melriffe revised this gist Oct 11, 2019. 1 changed file with 1 addition and 0 deletions.
    1 change: 1 addition & 0 deletions dates.st
    View file
    Original file line number Diff line number Diff line change
    @@ -4,6 +4,7 @@
    This script is a way for me to get back into Smalltalk doing odd little tasks.
    $ gst /Users/mriffe/dev/play/dnd_games/dates.st
    $ gist -u https://gist.github.com/cfa53b8f6cd12f75f03d32075c49b82c dates.st
    "

  7. melriffe revised this gist Oct 11, 2019. 1 changed file with 14 additions and 0 deletions.
    14 changes: 14 additions & 0 deletions dates.st
    View file
    Original file line number Diff line number Diff line change
    @@ -1,3 +1,12 @@
    #! /usr/local/bin/gst -f

    "
    This script is a way for me to get back into Smalltalk doing odd little tasks.
    $ gst /Users/mriffe/dev/play/dnd_games/dates.st
    "

    | today nextDate isSaturday daysInMonth |
    isSaturday := false.
    today := Date today.
    @@ -13,3 +22,8 @@ daysInMonth := nextDate daysInMonth.
    ]

    'Hello, world' printNl


    "today := Date year: 2019 month: 11 day: 11 hour: 0 minute: 0 second: 0."
    "today := Date newDay: 11 monthIndex: 11 year: 2019."

  8. melriffe created this gist Oct 11, 2019.
    15 changes: 15 additions & 0 deletions dates.st
    View file
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,15 @@
    | today nextDate isSaturday daysInMonth |
    isSaturday := false.
    today := Date today.
    nextDate := today firstDayOfMonth.
    daysInMonth := nextDate daysInMonth.

    1 to: daysInMonth do: [:x |

    isSaturday := nextDate dayOfWeek = 6.
    isSaturday
    ifTrue: [ nextDate printNl ].
    nextDate := nextDate addDays: 1.
    ]

    'Hello, world' printNl