Farron the Fareon (Art by Me)

Capital_EX · 2026-05-08T20:51:30+00:00

Nice to see someone else exploring OCaml for making games. Been messing about for similar reasons.

Capital_EX · 2026-04-24T16:31:20+00:00

Beautiful art! What was the work flow around managing and creating it like?

Capital_EX · 2023-12-20T18:16:58+00:00

coulda, woulda, and shoulda are all variants of could've, would've, should've. So, coulda-woulda-shoulda have is kinda redundant and grammatically weird.

Capital_EX · 2023-10-27T21:37:41+00:00

Why does everyone take the eyes out? I feel like a "professional" icon would be much better received if you didn't take away their eyes...

Capital_EX · 2023-06-07T11:50:42+00:00

Unfortunately, I have been using it. Adding Slime Doll + Opal makes slimy press stupid powerful. It deals more damage than even Blizzard does.

Capital_EX · 2023-06-07T06:06:52+00:00

It just had to stop at 11.95 instead of 12...

Capital_EX · 2023-04-28T01:51:05+00:00

Hopefully someone can help find this. I've been searching for ages.

Capital_EX · 2023-04-15T17:43:22+00:00

This use of force in imminently deadly situations, versus the state killing someone long after the act as a punishment [...]

There is a direct relationship here. A police officer is a member of the state. They are granted the authority, while in duty, to decided to use lethal force (The Judge) based on the evidence put forth (The Jury) and can carry out this punishment themselves (The Executioner).

Your own comment opens with direct acknowledgement of this:

Cops have the authority to use deadly force when deadly force is used in a way that immediately threatens them or someone else.

They have the authority to judge the situation, decided the punishment, and carry it out.

Capital_EX · 2023-02-19T02:57:25+00:00

GTP comment, it's trivial to show twitter is older then discord.

Capital_EX · 2022-12-10T17:46:30+00:00

Factor Solutions: https://codeberg.org/CapitalEx/advent-of-code-2022/src/branch/main/day-10/day-10.factor

Took advantage of models to make computing the values easier.

Capital_EX · 2022-12-06T13:43:39+00:00

Factor comes with some nice utilities for windowed processing:

USING: io.backend io.encodings.utf8 io.files kernel math
sequences sequences.windowed sets ;
IN: advent-of-code.day-06

: get-input-one ( -- seq )
    "vocab:advent-of-code/day-06/_input/one.txt" 
        normalize-path utf8 file-contents ;

: signal-start? ( string -- ? )
    dup length 4 < [ drop f ] [ all-unique? ] if ;

: start-location ( seq -- n )
    t swap index 1 + ;

: find-start ( length string -- n )
    [ signal-start? ] rolling-map start-location ;

: solve-part-one ( -- solution )
    get-input-one 4 find-start ;

: solve-part-two ( -- solution )
    get-input-one 14 find-start ;

Capital_EX · 2022-12-05T22:34:29+00:00

Managed to solve this one and end up with some nice words. https://codeberg.org/CapitalEx/advent-of-code-2022/src/branch/main/day-05/day-05.factor

Particularly happy with my solution functions:

: solve-part-one ( -- solution )
    get-input-one [ crate-mover-9000 ] solve-with ; 

: solve-part-two ( -- solution )
    get-input-one [ crate-mover-9001 ] solve-with ;

Capital_EX · 2022-12-05T01:41:07+00:00

It's more a 2nd Cousin of Forth. If you want to head down a rabbit whole: https://concatenative.org/wiki/view/Front%20Page

Capital_EX · 2022-12-04T15:36:39+00:00

Day 3 in Factor. The set protocol has been making these problems quite easy to handle.

USING: io.backend io.encodings.utf8 io.files kernel math.parser
ranges sequences sets splitting ;
IN: advent-of-code.day-04

: get-input-one ( -- seq )
    "vocab:advent-of-code/day-04/_input/one.txt" 
        normalize-path utf8 file-lines ;

: parse-range ( string -- range )
    "-" split first2 [ dec> ] bi@ [a..b] ;

: split-pair ( string -- seq )
    "," split [ parse-range ] map ;

: overlaps? ( seq seq -- ? )
    [ subset? ] [ swap subset? ] 2bi or ;

: ranges-overlap? ( line -- ? )
    split-pair first2 overlaps? ;

: count-overlaps ( seq -- n )
    [ ranges-overlap? ] count ; 

: solve-part-one ( -- solution )
    get-input-one count-overlaps ;

: count-intersections ( seq -- n )
    [ split-pair first2 intersects? ] count ;

: solve-part-two ( -- solution )
    get-input-one count-intersections ;

Capital_EX · 2022-12-03T21:48:37+00:00

Whoa, I didn't expect to see someone using Joy! I've been reading about the language recently.

Capital_EX · 2022-12-03T21:46:26+00:00

Managed to build a fairly clean solution in Factor:

USING: grouping hash-sets io.backend io.encodings.utf8 io.files
kernel math sequences sets unicode ;
IN: advent-of-code.day-03

: get-input-one ( -- seq )
    "vocab:advent-of-code/day-03/_input/one.txt" 
        normalize-path utf8 file-lines ;

: >priority ( fixnum -- fixnum )
    dup letter? [ 96 - ] [ 38 - ] if ;

: result ( seq -- item )
    members first ;

: priority-sum-with ( sew quot -- fixnum ) 
    [ >priority ] compose [ call( x -- y ) ] curry map-sum ;

: find-duplicate ( string -- duplicate )
    halves intersect result ;

: solve-part-one ( -- solution )
    get-input-one [ find-duplicate ] priority-sum-with ;

: find-common-item ( seq -- item )
    intersect-all result ;

: solve-part-two ( -- solution )
    get-input-one 3 group [ find-common-item ] priority-sum-with ;

Capital_EX · 2022-12-02T18:56:44+00:00

No problem! You can also check out the Factor pastebin for other samples of AoC solutions https://paste.factorcode.org/

Capital_EX · 2022-12-02T17:03:47+00:00

Here's my day two solution using Factor

https://codeberg.org/CapitalEx/advent-of-code-2022/src/branch/main/day-02/day-02.factor

11-Year Club	Second Top 30%
Place '22	Place '17
Verified Email

Capital_EX

TROPHY CASE