🐐 SEMEN

2026-04-21 14:24:48 +02:00
parent 4f67b1b2dc
commit ad46f189c0
8 changed files with 32 additions and 3 deletions
--- a/centvrion/compiler/runtime/cent_runtime.c
+++ b/centvrion/compiler/runtime/cent_runtime.c
@@ -533,6 +533,12 @@ CentValue cent_fortis_electionis(CentValue lst) {
  return lst.lval.items[rand() % lst.lval.len];
 }

+void cent_semen(CentValue seed) {
+  if (seed.type != CENT_INT)
+    cent_type_error("'SEMEN' requires an integer seed");
+  srand((unsigned)seed.ival);
+}
+
 /* ------------------------------------------------------------------ */
 /* Array helpers                                                        */
 /* ------------------------------------------------------------------ */