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

capitalex / maze.nv

0 лайк(-ов)

0 форк(-ов)

1 файл(-ов)

Последняя активность 11 months 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 файл(-ов)

Последняя активность 11 months 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 файл(-ов)

Последняя активность 11 months 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 файл(-ов)

Последняя активность 11 months 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 файл(-ов)

Последняя активность 11 months 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

capitalex / sacraficial-lamb.md

0 лайк(-ов)

0 форк(-ов)

1 файл(-ов)

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

bah

capitalex / combo.md

0 лайк(-ов)

0 форк(-ов)

1 файл(-ов)

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

one-two punch

capitalex / stack-lang-triangle.modal

0 лайк(-ов)

0 форк(-ов)

1 файл(-ов)

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

1	<> (?0 ?1 >> `?:) (?: >>)
2	<> (>> +) (>> `+)
3	<> (>> -) (>> `-)
4	<> (>> ) (>> `)
5	<> (>> >) (>> `>)
6	<> (>> &) (>> `&)
7	<> (>> =) (>> `=)
8
9	<> (?x ?y >> swap) (?y ?x >>)
10	<> (?x >> dup) (?x ?x >>)

capitalex / string-rewriter.lua

0 лайк(-ов)

0 форк(-ов)

3 файл(-ов)

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

1	local pprint = require "pprint"
2	love.graphics.setDefaultFilter("nearest", "nearest")
3	local read, write = 1, 1
4	local active_buffer, back_buffer, rule_book = {}, {}, {}
5	local function parse(str)
6	local symbols = {}
7	for symbol in str:gmatch("%S+") do
8	table.insert(symbols, symbol)
9	end
10	return symbols

capitalex / player.bite

0 лайк(-ов)

0 форк(-ов)

1 файл(-ов)

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

1	for #player when ["right" key is pressed] do
2	set [$my vx is 250]
3	end
4
5	for #player when ["left" key is pressed] do
6	set [$my vy is 200]
7	end
8
9	for #player when ["space" key is pressed] [$i can jump] do
10	forget [$i can jump]

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