NikolajDanger/centvrion
1
1
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

🐐 VSQVE change

Browse Source
This commit is contained in:
NikolajDanger
2026-04-21 22:35:22 +02:00
parent 5961884219
commit 559b1b100e
9 changed files with 62 additions and 47 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
examples/bubble_sort.cent
View File

@@ -3,8 +3,8 @@
DESIGNA arr VT [V, III, VIII, I, IX, II, VII, IV, VI, X]
DESIGNA n VT LONGITVDO(arr)
DONICVM i VT I VSQVE n FACE {
DONICVM k VT I VSQVE n - i + I FACE {
DONICVM i VT I VSQVE n - I FACE {
DONICVM k VT I VSQVE n - i FACE {
SI arr[k] PLVS arr[k + I] TVNC {
DESIGNA temp VT arr[k]
DESIGNA arr[k] VT arr[k + I]

44
examples/connect_iv.cent
View File

@@ -6,7 +6,7 @@
// Returns the bottommost empty row in col, or NVLLVS if full
DEFINI find_slot(b, col) VT {
DESIGNA ans VT NVLLVS
DONICVM r VT I VSQVE VII FACE {
DONICVM r VT I VSQVE VI FACE {
SI b[(r - I) * VII + col] EST NVLLVS TVNC {
DESIGNA ans VT r
}
@@ -16,32 +16,32 @@ DEFINI find_slot(b, col) VT {
// Returns VERITAS if player has four in a row
DEFINI est_victor(b, player) VT {
DONICVM r VT I VSQVE VII FACE {
DONICVM c VT I VSQVE V FACE {
DONICVM r VT I VSQVE VI FACE {
DONICVM c VT I VSQVE IV FACE {
DESIGNA idx VT (r - I) * VII + c
SI b[idx] EST player ET b[idx + I] EST player ET b[idx + II] EST player ET b[idx + III] EST player TVNC {
REDI(VERITAS)
}
}
}
DONICVM r VT I VSQVE IV FACE {
DONICVM c VT I VSQVE VIII FACE {
DONICVM r VT I VSQVE III FACE {
DONICVM c VT I VSQVE VII FACE {
DESIGNA idx VT (r - I) * VII + c
SI b[idx] EST player ET b[idx + VII] EST player ET b[idx + XIV] EST player ET b[idx + XXI] EST player TVNC {
REDI(VERITAS)
}
}
}
DONICVM r VT I VSQVE IV FACE {
DONICVM c VT I VSQVE V FACE {
DONICVM r VT I VSQVE III FACE {
DONICVM c VT I VSQVE IV FACE {
DESIGNA idx VT (r - I) * VII + c
SI b[idx] EST player ET b[idx + VIII] EST player ET b[idx + XVI] EST player ET b[idx + XXIV] EST player TVNC {
REDI(VERITAS)
}
}
}
DONICVM r VT I VSQVE IV FACE {
DONICVM c VT IV VSQVE VIII FACE {
DONICVM r VT I VSQVE III FACE {
DONICVM c VT IV VSQVE VII FACE {
DESIGNA idx VT (r - I) * VII + c
SI b[idx] EST player ET b[idx + VI] EST player ET b[idx + XII] EST player ET b[idx + XVIII] EST player TVNC {
REDI(VERITAS)
@@ -53,9 +53,9 @@ DEFINI est_victor(b, player) VT {
DEFINI print_board(b) VT {
DICE("+---+---+---+---+---+---+---+")
DONICVM r VT I VSQVE VII FACE {
DONICVM r VT I VSQVE VI FACE {
DESIGNA line VT "| "
DONICVM c VT I VSQVE VIII FACE {
DONICVM c VT I VSQVE VII FACE {
DESIGNA cell VT b[(r - I) * VII + c]
SI cell EST I TVNC {
DESIGNA line VT line & "X | "
@@ -101,35 +101,35 @@ DEFINI score_fenestram(a, b, c, d) VT {
DEFINI aestima(b) VT {
DESIGNA score VT NVLLVS
// Center column preference: each AI piece in column IV is worth +1
DONICVM r VT I VSQVE VII FACE {
DONICVM r VT I VSQVE VI FACE {
SI b[(r - I) * VII + IV] EST II TVNC {
DESIGNA score VT score + I
}
}
// Horizontal windows (6 rows x 4 starting columns = 24)
DONICVM r VT I VSQVE VII FACE {
DONICVM c VT I VSQVE V FACE {
DONICVM r VT I VSQVE VI FACE {
DONICVM c VT I VSQVE IV FACE {
DESIGNA idx VT (r - I) * VII + c
DESIGNA score VT score + INVOCA score_fenestram(b[idx], b[idx + I], b[idx + II], b[idx + III])
}
}
// Vertical windows (3 starting rows x 7 columns = 21)
DONICVM r VT I VSQVE IV FACE {
DONICVM c VT I VSQVE VIII FACE {
DONICVM r VT I VSQVE III FACE {
DONICVM c VT I VSQVE VII FACE {
DESIGNA idx VT (r - I) * VII + c
DESIGNA score VT score + INVOCA score_fenestram(b[idx], b[idx + VII], b[idx + XIV], b[idx + XXI])
}
}
// Diagonal up-right windows (3 starting rows x 4 starting columns = 12)
DONICVM r VT I VSQVE IV FACE {
DONICVM c VT I VSQVE V FACE {
DONICVM r VT I VSQVE III FACE {
DONICVM c VT I VSQVE IV FACE {
DESIGNA idx VT (r - I) * VII + c
DESIGNA score VT score + INVOCA score_fenestram(b[idx], b[idx + VIII], b[idx + XVI], b[idx + XXIV])
}
}
// Diagonal up-left windows (3 starting rows x 4 starting columns = 12)
DONICVM r VT I VSQVE IV FACE {
DONICVM c VT IV VSQVE VIII FACE {
DONICVM r VT I VSQVE III FACE {
DONICVM c VT IV VSQVE VII FACE {
DESIGNA idx VT (r - I) * VII + c
DESIGNA score VT score + INVOCA score_fenestram(b[idx], b[idx + VI], b[idx + XII], b[idx + XVIII])
}
@@ -219,8 +219,8 @@ DEFINI ai_move(b) VT {
}
// --- Board setup ---
DESIGNA board VT [I VSQVE XLIII]
DONICVM i VT I VSQVE XLIII FACE {
DESIGNA board VT [I VSQVE XLII]
DONICVM i VT I VSQVE XLII FACE {
DESIGNA board[i] VT NVLLVS
}

4
examples/multiplication_table.cent
View File

@@ -1,9 +1,9 @@
// Prints an X×X multiplication table
DESIGNA n VT X
DONICVM i VT I VSQVE n + I FACE {
DONICVM i VT I VSQVE n FACE {
DESIGNA line VT ""
DONICVM k VT I VSQVE n + I FACE {
DONICVM k VT I VSQVE n FACE {
DESIGNA line VT line & i * k & " "
}
DICE(line)

4
examples/sieve.cent
View File

@@ -2,9 +2,9 @@
DESIGNA n VT L
DONICVM i VT II VSQVE n + I FACE {
DONICVM i VT II VSQVE n FACE {
DESIGNA is_prime VT VERITAS
DONICVM k VT II VSQVE i FACE {
DONICVM k VT II VSQVE i - I FACE {
SI (i / k) * k EST i TVNC {
DESIGNA is_prime VT FALSITAS
}