├── README.md ├── blue.sl ├── green.ml ├── orange.oz ├── purple.bas ├── red.m ├── shot.png └── yellow.thy /README.md: -------------------------------------------------------------------------------- 1 | # LGBT Pride in GitHub Repository Languages 2 | 3 | Just in case github changes any of the colours, 4 | this is what it's supposed to look like: 5 | 6 | ![](shot.png) 7 | 8 | ## Similar projects 9 | 10 | This repository has inspired various other pride flags ❤ 11 | 12 | - https://github.com/ticky/trans 13 | - https://github.com/alexwlchan/asexual 14 | - https://github.com/TartanLlama/non-binary 15 | - https://github.com/issyl0/pan 16 | - https://github.com/mattbischoff/bisexual 17 | -------------------------------------------------------------------------------- /blue.sl: -------------------------------------------------------------------------------- 1 | def _parse_char(char) { 2 | switch char { 3 | ">" { _add(AST::Next.new); } 4 | "<" { _add(AST::Prev.new); } 5 | "+" { _add(AST::Inc.new); } 6 | "-" { _add(AST::Dec.new); } 7 | "." { _add(AST::Output.new); } 8 | "," { _add(AST::Input.new); } 9 | "[" { _open_loop(); } 10 | "]" { _close_loop(); } 11 | } 12 | } -------------------------------------------------------------------------------- /green.ml: -------------------------------------------------------------------------------- 1 | # let add_polynoms p1 p2 = 2 | let n1 = Array.length p1 3 | and n2 = Array.length p2 in 4 | let result = Array.make (max n1 n2) 0 in 5 | for i = 0 to n1 - 1 do result.(i) <- p1.(i) done; 6 | for i = 0 to n2 - 1 do result.(i) <- result.(i) + p2.(i) done; 7 | result;; 8 | 9 | val add_polynoms : int array -> int array -> int array = 10 | # add_polynoms [| 1; 2 |] [| 1; 2; 3 |];; 11 | 12 | -------------------------------------------------------------------------------- /orange.oz: -------------------------------------------------------------------------------- 1 | = 2 | 3 | proc {Save File} 4 | {Pickle.save {Ctr get($)}# 5 | {Dictionary.toRecord db Data} 6 | File} 7 | end 8 | proc {Load File} 9 | I#D={Pickle.load File} 10 | in 11 | {Dictionary.removeAll Data} 12 | {Ctr init(I)} 13 | {Record.forAllInd D 14 | proc {$ K E} 15 | {Dictionary.put Data K E} 16 | end} 17 | end -------------------------------------------------------------------------------- /purple.bas: -------------------------------------------------------------------------------- 1 | FN = FreeFile 2 | Open strPrintToFile For Output As #FN 3 | For I = 0 To lstFormList.ListCount - 1 4 | Print #FN, lstFormList.List(I) 5 | Next I 6 | 7 | Close #FN 'thats it... your file is updated 8 | 9 | 'clear the listbox? 10 | If blnClearList = True Then lstFormList.Clear 11 | End Function 12 | -------------------------------------------------------------------------------- /red.m: -------------------------------------------------------------------------------- 1 | :- module servlet. 2 | 3 | :- interface. 4 | 5 | :- import_module io. 6 | 7 | :- type request. 8 | :- type response. 9 | 10 | :- pred handle_get(request::in, response::in, io::di, io::uo) is det. 11 | 12 | :- implementation. 13 | 14 | :- import_module list. 15 | :- import_module string. 16 | 17 | handle_get(Req, Response, !IO) :- 18 | set_content_type(Response, "text/html", !IO), 19 | Msg = "Be gay, and do crimes! 🏴", 20 | write_response(Response, Msg, !IO). 21 | -------------------------------------------------------------------------------- /shot.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/spacekookie/gay/50d3377185d26b556e5d4485e96a2f0eb27effd0/shot.png -------------------------------------------------------------------------------- /yellow.thy: -------------------------------------------------------------------------------- 1 | theory ListsProof 2 | 3 | imports Main 4 | 5 | begin 6 | datatype ’a list = Nil | Cons ’a "’a list" 7 | 8 | fun app :: "’a list => ’a list => ’a list" where 9 | "app Nil ys = ys" | 10 | "app (Cons x xs) ys = Cons x (app xs ys)" 11 | 12 | fun rev :: "’a list => ’a list" where 13 | "rev Nil = Nil" | 14 | "rev (Cons x xs) = app (rev xs) (Cons x Nil)" 15 | 16 | value "rev(Cons True (Cons False Nil))" 17 | end --------------------------------------------------------------------------------