Все фрагменты

capitalex / IntroStory.cs

0 лайк(-ов)

0 форк(-ов)

1 файл(-ов)

Последняя активность 1 year ago

1	using System.Collections;
2	using System.Collections.Generic;
3	using UnityEngine;
4	using UnityEngine.UI;
5
6
7	public class IntroStory : MonoBehaviour
8	{
9
10	Dictionary<string, AudioClip> audioClips = new Dictionary<string, AudioClip>();

capitalex / Select snippets from Chitinous Carnival

0 лайк(-ов)

0 форк(-ов)

7 файл(-ов)

Последняя активность 1 year ago

A collection of files I consider to be at the "core" of CC

1	# warning-ignore-all:return_value_discarded
2	extends HBoxContainer
3	class_name ChitinousCanrival
4
5	const event_player_scene = preload("res://scenes/ui/EventPlayer.tscn")
6
7	@onready var MinigameHandler := %MinigameHandler as MinigameHandler
8	@onready var TravelButtons := %TravelButtons as TravelButtons
9	@onready var EventPlayerContainer := %EventPlayerContainer as EventPlayerContainer
10	@onready var InventoryMenu := %InventoryMenu as InventoryMenu

capitalex / shunting-yard.nv

0 лайк(-ов)

0 форк(-ов)

1 файл(-ов)

Последняя активность 1 year ago

1	\|:eval: * $x $y\| :@math: multiply $x $y
2	\|:eval: / $x $y\| :@math: divide $x $y
3	\|:eval: + $x $y\| :@math: add $x $y
4	\|:eval: - $x $y\| :@math: subtract $x $y
5
6	\|:precedence: \| :precedence: 2
7	\|:precedence: /\| :precedence: / 2
8	\|:precedence: +\| :precedence: + 1
9	\|:precedence: -\| :precedence: - 1
10	\|:precedence: $x\| :not an operator:

capitalex / maze-array-polyfill.nv

0 лайк(-ов)

0 форк(-ов)

1 файл(-ов)

Последняя активность 1 year ago

1	= \|@math\| $last \|@math\| $op $value * =
2	\|@math\| $op $value $last
3	= \|@math\| $last \|@math\| $op * $value =
4	\|@math\| $op $last $value
5
6
7	= \|@ array\| flush cells? \|cells array direction\| forwards? \|forwards cells\| $value =
8	\|backwards cells\| $value
9
10	= \|@ array\| flush cells? \|cells array direction\| forwards? \|forwards cells\| =

capitalex / maze-with-arrays.nv

0 лайк(-ов)

1 форк(-ов)

2 файл(-ов)

Последняя активность 1 year ago

1	= \|@math\| $last \|@math\| $op $value * =
2	\|@math\| $op $value $last
3	= \|@math\| $last \|@math\| $op * $value =
4	\|@math\| $op $last $value
5
6	= \|\| set new pen color? \|pen color\| r $g $b \|@math\| $r =
7	\|pen color\| $r $g $b
8
9	= \|\| set new pen color? \|pen color\| $r g $b \|@math\| $g =
10	\|pen color\| $r $g $b

capitalex / maze.nv

0 лайк(-ов)

0 форк(-ов)

1 файл(-ов)

Последняя активность 1 year ago

1	= \|\| jump pen x \|pen position\| $oldx $y \|@math\| $x =
2	\|pen position\| $x $y
3
4	= \|\| jump pen y \|pen position\| $x $oldy \|@math\| $y =
5	\|pen position\| $x $y
6
7	= \|\| jump \|backtrack\| $row $col =
8	\|@math\| multiply $col 2
9	\|@math\| multiply $row 2
10	\|\| jump pen x \|\| jump pen y

capitalex / rewrite.idris

0 лайк(-ов)

0 форк(-ов)

1 файл(-ов)

Последняя активность 1 year ago

1	rewrite : (default : List String) ->
2	(apples : List String) ->
3	(oranges : List String) ->
4	(cherries : List String) ->
5	(fruit_salad : List String) ->
6	(bowl : List String) ->
7	List (List String)
8
9	rewrite default ([] :: apples) ([] :: oranges) ([] :: cherries) fruit_salad bowl =
10	rewrite default apples oranges cherries ([] :: fruitSalad) bowl

capitalex / ArithCmdDo.idr

0 лайк(-ов)

0 форк(-ов)

1 файл(-ов)

Последняя активность 1 year ago

1	module ArithCmdDo
2	import Data.String
3	import Data.Primitives.Views
4	import Data.Bits
5	import System
6	import System.File
7	%default total
8
9	data Input = Answer Int
10	\| QuitCmd

capitalex / fpnova.nv

0 лайк(-ов)

0 форк(-ов)

1 файл(-ов)

Последняя активность 1 year ago

1	do: %action = %action
2
3	dereference, from: %reference, %reference: %code =
4	dereference
5	from: %reference
6	spent: %code
7	compiled code: %code
8
9	dereference, from: %reference =
10	restore dereference

capitalex / novaweb.nv

0 лайк(-ов)

0 форк(-ов)

1 файл(-ов)

Последняя активность 1 year ago

1	Let's write a program that computers the fibonacci sequence. First we must define the base cases of the function. for the sake of simplicity, n <= 0 returns zero.
2
3	The base case for n <= 0:
4	if n <= 0 then
5	return 0
6	end
7
8	The base case for 1:
9	if n == 1 then
10	return 1

1	\|:eval: * $x $y\| :@math: multiply $x $y
2	\|:eval: / $x $y\| :@math: divide $x $y
3	\|:eval: + $x $y\| :@math: add $x $y
4	\|:eval: - $x $y\| :@math: subtract $x $y
5
6	\|:precedence: \| :precedence: 2
7	\|:precedence: /\| :precedence: / 2
8	\|:precedence: +\| :precedence: + 1
9	\|:precedence: -\| :precedence: - 1
10	\|:precedence: $x\| :not an operator:

1	= \|@math\| $last \|@math\| $op $value * =
2	\|@math\| $op $value $last
3	= \|@math\| $last \|@math\| $op * $value =
4	\|@math\| $op $last $value
5
6
7	= \|@ array\| flush cells? \|cells array direction\| forwards? \|forwards cells\| $value =
8	\|backwards cells\| $value
9
10	= \|@ array\| flush cells? \|cells array direction\| forwards? \|forwards cells\| =

1	= \|@math\| $last \|@math\| $op $value * =
2	\|@math\| $op $value $last
3	= \|@math\| $last \|@math\| $op * $value =
4	\|@math\| $op $last $value
5
6	= \|\| set new pen color? \|pen color\| r $g $b \|@math\| $r =
7	\|pen color\| $r $g $b
8
9	= \|\| set new pen color? \|pen color\| $r g $b \|@math\| $g =
10	\|pen color\| $r $g $b

1	= \|\| jump pen x \|pen position\| $oldx $y \|@math\| $x =
2	\|pen position\| $x $y
3
4	= \|\| jump pen y \|pen position\| $x $oldy \|@math\| $y =
5	\|pen position\| $x $y
6
7	= \|\| jump \|backtrack\| $row $col =
8	\|@math\| multiply $col 2
9	\|@math\| multiply $row 2
10	\|\| jump pen x \|\| jump pen y