wsgac

{-

**************************** IMPORTANT ****************************

This week is a two-step homework. First, you have to solve the
"Maze" challenge, and then the "Forest" challenge. The challenges
are in two separate files in both the homework and solution, so
you can check the solution for the first "Maze" challenge without
spoilers of the "Forest" one. Make sure to check the solution for
"Maze" (and only "Maze," I see you 🥸👀) before starting with the

wsgac

# Add debugging outputs to requests

try:
    import http.client as http_client
except ImportError:
    # Python 2
    import httplib as http_client
http_client.HTTPConnection.debuglevel = 1

# You must initialize logging, otherwise you'll not see debug output.

wsgac

(in-package :lem-core)

(defun undefine-key (keymap keyspec)
  "Remove binding for KEYSPEC from KEYMAP. Two cases for KEYSPEC are
considered. If it's a symbol, try to remove the corresponding binding
from KEYMAP's FUNCTION-TABLE. If it's a string, parse the string into
chained components, try to extract the innermost chained hash table
from KEYMAP's TABLE and remove the relevant entry."
  (check-type keyspec (or symbol string))
  (typecase keyspec

wsgac

from cryptography import x509
from cryptography.hazmat.backends import default_backend
from cryptography.hazmat.primitives import hashes
from cryptography.hazmat.primitives import serialization
import os

# Read cert from file
with open("cert.pem", "rb") as f:
    cert= x509.load_pem_x509_certificate(f.read(), default_backend())

wsgac

# Completion functionality a'la Emacs' dabbrev-expand
zstyle ':completion:history-words:*' list no
zstyle ':completion:history-words:*' remove_all_dups yes
zstyle ':completion:history-words:*' stop yes
zstyle ':completion:history-words:*' menu yes

bindkey "^[/" _history-complete-older

wsgac

(defun factorial-y-combinator (n)
  (funcall
   (Y (lambda (f n)
	(if (zerop n)
	    1
	    (* n (funcall f f (1- n))))))
   n))

(defun tail-factorial-y-combinator (n)
  (funcall

wsgac

;; -*-lisp-*-

(ql:quickload :legit)

(defun sync-utils ()
  (let* ((repo (make-instance 'legit:repository
			      :location "/home/wsg/hack/lisp/util-gist/"))
	 (remote "git@gist.github.com:9323a1b03108d4ff10570c26a21425c1.git"))
    (legit:init repo :if-does-not-exist :clone :remote remote)
    (legit:pull repo)

wsgac

;; -*-lisp-*-

(defmacro accum (accfn &body body)
  (let ((ghead (gensym "head"))
	(gtail (gensym "tail"))
	(garg (gensym "arg")))
    `(let* ((,ghead (list nil))
	    (,gtail ,ghead))
       (macrolet ((,accfn (,garg)
		    `(setf ,',gtail

wsgac

{-# LANGUAGE DataKinds #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE TypeOperators #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE NamedFieldPuns #-}

module TelegramMessage where

import Data.Aeson
import Data.Proxy

wsgac

(defun decimal-to-ip (decimal)
  "Retrieve IP address by first obtaining a binary representation,
grouping it into 4 octets and finally reassembling them as 4 decimal
numbers."
  (apply #'format nil "~a.~a.~a.~a"
	 (mapcar #'(lambda (s) (parse-integer s :radix 2))
		 (cl-ppcre:all-matches-as-strings "[01]{8}" (format nil "~2r" decimal)))))

(defun decimal-to-ip-bitwise (decimal)
  "Convert numerical representation to octet-based IP via the byte