What is Hackers' Pub?

Hackers' Pub is a place for software engineers to share their knowledge and experience with each other. It's also an ActivityPub-enabled social network, so you can follow your favorite hackers in the fediverse and get their latest posts in your feed.

0
1
1
1
0

RE: baram.me/@bori/115205046449088

활자중독 경기도민 여러분, 평안하신지요? 2026년에도 경기도청은 정신차리지 못하고 책읽음이들에게 재정을 퍼주고 있습니다. 게다가 올해에는 인당 지급한도도 늘었다고 합니다. 역시 읽어주는 수밖에 없겠습니다. 파주에 있는 출판사들 창고가 텅텅 비는 그날까지 힘내봅시다.

0
1
0
0
0
22
4
1
22
4
1
2
0
0
0
0
0
0

fantastic.earth is growing, literally. After running on a small 4 GB server for two years, we have recently migrated to a 64 GB server. Now we can host even more services for our members. We currently run these services:

- (Microblogging)
- (Image posting)
- (Book reading tracking)
- + (Feed reading + Read-later bookmarking)
- (Office suite and cloud storage)

Our server is paid and invite-only. If you know any existing members personally, and would like to use well-moderated and fast services, please reach out to them for an invite.

A table showing data received and sent yearly by the fantastic.earth server for 2022–25:

year                           rx                              tx                      total
2022                         351.55 GiB            75.60 GiB      427.15 GiB
2023                         5.93 TiB                 6.99 TiB         12.92 TiB
2024                         5.81 TiB                  8.07 TiB         13.88 TiB
2025                         536.84 GiB           1.06 TiB          1.59 TiB
2025 estimated     5.72 TiB                  11.62 TiB        17.34 TiB
0
1

Wrote some in as an using the Clay library. Gotta say, writing type-safe CSS is a really nice experience.

```haskell
pageStyle = do
body ? do
header ? do
textAlign center
main_ ** article ? do
small ? do
fontSize $ em 0.5
marginLeft $ em 0.3
".meta" ? do
display flex
justifyContent spaceBetween
ul # ".tags" ? do
paddingLeft $ em 0
li ? do
display inlineBlock
backgroundColor $ rgb 230 230 250
color $ rgb 34 34 34
margin (em 0.2) (em 0.1) (em 0.2) (em 0.1)
padding (em 0.1) (em 0.5) (em 0.1) (em 0.5)
whiteSpace nowrap
fontSizeCustom smaller
query CM.screen [CM.prefersColorScheme CM.dark] $ do
backgroundColor $ rgb 72 57 165
color $ rgb 217 216 220
footer ? do
textAlign center
fontSizeCustom smaller
borderTop 1 dashed black
```

0

🍝 날아다니는 스파게티 괴물 님, 절 구하소서.
😋 저의 주님, 어서 오셔서 저를 도우소서.

영광이 미트볼🧆과 소스🥫와 성면(the Holy Noodle)🍝께.
처음과 같이 이제와 항상 영원히. 라-멘 🍜

🍝 날아다니는 스파게티 괴물 님께서 당신 뜻과 함께 하는 사람들을 언제나 도와주고 계시니, 감사드리는 마음으로 기도합시다.
😋 저의 주님, 날아다니는 스파게티 괴물 님, 저희에게 은총을 베푸소서.

"10. 고난 속에 있는 모든 이들에게 당신의 따뜻한 소스를 전하시어, 희망과 용기를 얻게 하소서."

저의 주님, 날아다니는 스파게티 괴물 님,
이 몸을 편히 쉬게 하시고, 우리가 오늘 애써 뿌린 씨가 영원한 열매를 맺게 하소서.
라-멘 🍜

2026-03-19T18:29:07+09:00


0
0

I ported @mattmight’s conversion code (matt.might.net/articles/cps-co) to and after some fighting with the type system, it worked! To make the work with the Cont monad, I had to remove recursive lets and hence, functions being able to call themselves recursively, but the rest works fine.

The attached images show the conversion of the Fibonacci function into the CPS version.

Fibonacci function in Lisp:

(let
  ([fib
     (λ (n)
       (let
         ([fib'
            (λ (n f)
              (if (= n 0)
                0
                (if (= n 1)
                  1 
                  (+ (f (- n 1) f) (f (- n 2) f)))))])
         (fib' n fib')))])
  (fib 10))CPS version of Fibonacci function in Lisp:

(let
  ([fib
     (λ (n k0)
       (let
         ([fib'
            (λ (n f k1)
              ((λ (k2)
                 ((λ (v3)
                    (if v3
                      (k2 0)
                      ((λ (k4)
                         ((λ (v5)
                            (if v5
                              (k4 1)
                              ((λ (v9)
                                 (f v9 f
                                   (λ (v6)
                                     ((λ (v8)
                                        (f v8 f 
                                          (λ (v7) 
                                            (k4 (+ v6 v7)))))
                                      (- n 2)))))
                               (- n 1))))
                          (= n 1)))
                       k2)))
                  (= n 0)))
               k1))])
         (fib' n fib' k0)))])
  (fib 10 return))
0
2
0
0
0
0
0
0
1
1
0
1
2
0

10년 정도 된 오래된 안드로이드 태블릿 컴퓨터에 커스텀 OS 설치해야지 했다가 최신 OS 버전을 지원하는 아무거나 주워서 설치했더니 /e/OS 라는 정책이 진보적인(?) 운영체제를 설치하게 되었습니다.

/e/OS는 구글의 서비스에 배제하는 목적으로 만들어진 커스텀 OS라고 합니다.
따뜻한 구글의 서비스...
:blobcat_frustration:

0
1
1
2
1
1
0
0
1
1
1
0
1
1
0
1