Skip to content

Instantly share code, notes, and snippets.

View pramatias's full-sized avatar

kostas pramatias pramatias

View GitHub Profile
#lang racket
(require 2htdp/image)
(define image (empty-scene 400 400 (color 200 40 98 127)))
(define wedges (beside (wedge 60 60 "solid" "purple")
(wedge (random 0 100) (random 0 100) "solid" "brown")
(wedge (random 0 100) (random 0 100) "solid" "red")
(wedge (random 0 100) (random 0 100) "solid" "brown")
#lang racket
(require 2htdp/image)
(define image (empty-scene 400 400 (color 200 40 98 127)))
(define wedges (beside (wedge 60 60 "solid" "purple")
(wedge (random 0 100) (random 0 100) "solid" "red")
(wedge (random 0 100) (random 0 100) "solid" "brown")
(wedge (random 0 100) (random 0 100) "solid" "red")
#lang racket
(require 2htdp/image)
(define image (empty-scene 400 400 (color 200 40 98 127)))
(define brown_stones (beside
(triangle (random 0 100) "solid" "black")
(triangle (random 0 100) "solid" "cyan")
(triangle (random 0 100) "solid" "black")
@pramatias
pramatias / spin.rkt
Last active September 25, 2022 00:22
#lang racket
(require 2htdp/image)
(define p (empty-scene 256 256 (color 27 200 98 127)))
(define purple_star
(underlay (ellipse 30 60 200 "yellow")
(ellipse 40 50 200 "blue")
(ellipse 50 40 200 "yellow")
#lang racket
(require 2htdp/image)
(define p (empty-scene 256 256 (color 27 200 98 127)))
(define purple_star
(underlay (ellipse 30 60 40 "yellow")
(ellipse 40 50 40 "yellow")
(ellipse 50 40 40 "yellow")
#lang racket
(require 2htdp/image)
(define p (rectangle 256 256 "solid" (color 0 0 250 127)))
(define red_star
(underlay (ellipse 10 60 40 "red")
(ellipse 20 50 40 "red")
(ellipse 30 40 40 "red")
struct AbPairs {
word : String,
abbreviation : String
}
struct SmallStr {
small_str: String
}
impl SmallStr {

Keybase proof

I hereby claim:

  • I am pramatias on github.
  • I am emporas71 (https://keybase.io/emporas71) on keybase.
  • I have a public key ASD233DXySyY8yPqhn8cUSg86fC9oU30UIYxl-Z0NmXXjwo

To claim this, I am signing this object:

;;; qi-mode-el -- Major mode for editing Qi files
;;; qi-inferior-mode provided below
;; Author: Michael Ilseman
;; Created: 12 May 2007
;; Keywords: Qi major-mode
;; Copyright (C) 2007 Michael Ilseman
;; This program is free software; you can redistribute it and/or
‘(cond ((numberp ,x) ,@y) (t (print ,x) ,@y))
(list ’cond
(cons (list ’numberp x) y)
(list* ’t (list ’print x) y))