Embed Notice

HTML Code

<blockquote style="position: relative; padding-left: 55px;"><section><a href="https://mastodon.social/users/mcc/statuses/114310127895166484">mcc (mcc@mastodon.social)'s status on Friday, 11-Apr-2025 03:06:43 JST</a><a href="https://mastodon.social/@mcc" title="mcc@mastodon.social"><img src="https://gnusocial.jp/avatar/10951-48-20220921192024.webp" width="48" height="48" alt="mcc" style="position: absolute; left: 0; top: 0;">mcc</a><div><a href="https://mastodon.social/@mcc/114308921934802266" rel="in-reply-to">in reply to</a></div></section><article><p>Before I can start, I need to make some utilities. By "utilities" I mean "if" and "while" statements, which again, this language currently lacks. MVP, remember. Implementing these in userland is possible! It's *ugly*, though. For `if`, I simulate branching by putting the two possible outcomes (functions) into an array, casting the condition to a bool and then the bool to an int, and using that as an index to the array.</p><p>"while" is even more nightmarish. I don't… understand the use of make-quote.</p></article><footer><a rel="bookmark" href="https://gnusocial.jp/conversation/4874600#notice-9547648">In conversation</a><time datetime="2025-04-11T03:06:43+09:00" title="Friday, 11-Apr-2025 03:06:43 JST">about 8 days ago</time> <span>from <span><a href="https://mastodon.social/@mcc/114310127895166484" rel="external" title="Sent from mastodon.social via ActivityPub">mastodon.social</a></span></span><a href="https://mastodon.social/@mcc/114310127895166484">permalink</a><h4>Attachments</h4><ol><li><label><a rel="external" href="https://gnusocial.jp/attachment/4444383"># Advent of Code 2025, day 6, part 1 -- if-while testset 'noop {return nil}# Usage: if conditional {case1} {case2}
set 'if {
	inset args '(_if_cond _if_true _if_false) # Mass-assign sugar
	set '_if_pair [return noop, return _if_false]
	set '_if_pair [
		get _if_pair (to-int (to-bool _if_false))
		return _if_true
	]
	(get _if_pair (to-int (to-bool _if_cond))) # Extra () means execute
}# Usage if {conditional} {case}
set 'while {
	inset args '(_while_cond _while_true)
	set '_while_pair [return noop]
	push _while_pair [ # Construct fn as data so we don't have to think about
		return [make-quote _while_true] # ..variable shadowing when recursing
		return [return 'while, make-quote _while_cond, make-quote _while_true]
	]
	(get _while_pair (to-int (to-bool (_while_cond))))
}</a></label><br><a href="https://files.mastodon.social/media_attachments/files/114/310/103/102/902/781/original/54dec10db669c1ed.png" rel="external">https://files.mastodon.social/media_attachments/files/114/310/103/102/902/781/original/54dec10db669c1ed.png</a></li></ol></footer></blockquote>

Corresponding Notice

Embed this notice
mcc (mcc@mastodon.social)'s status on Friday, 11-Apr-2025 03:06:43 JST mcc
in reply to
Before I can start, I need to make some utilities. By "utilities" I mean "if" and "while" statements, which again, this language currently lacks. MVP, remember. Implementing these in userland is possible! It's *ugly*, though. For `if`, I simulate branching by putting the two possible outcomes (functions) into an array, casting the condition to a bool and then the bool to an int, and using that as an index to the array.
"while" is even more nightmarish. I don't… understand the use of make-quote.
In conversationabout 8 days ago from mastodon.socialpermalink
Attachments
1. # Advent of Code 2025, day 6, part 1 -- if-while test set 'noop {return nil} # Usage: if conditional {case1} {case2} set 'if { inset args '(_if_cond _if_true _if_false) # Mass-assign sugar set '_if_pair [return noop, return _if_false] set '_if_pair [ get _if_pair (to-int (to-bool _if_false)) return _if_true ] (get _if_pair (to-int (to-bool _if_cond))) # Extra () means execute } # Usage if {conditional} {case} set 'while { inset args '(_while_cond _while_true) set '_while_pair [return noop] push _while_pair [ # Construct fn as data so we don't have to think about return [make-quote _while_true] # ..variable shadowing when recursing return [return 'while, make-quote _while_cond, make-quote _while_true] ] (get _while_pair (to-int (to-bool (_while_cond)))) }
  https://files.mastodon.social/media_attachments/files/114/310/103/102/902/781/original/54dec10db669c1ed.png

Public

Embed Notice

HTML Code

Corresponding Notice