privet-kitty

privet-kitty

(sb-c::defknown modular* ((unsigned-byte 64) (unsigned-byte 64)) (unsigned-byte 64)
    (sb-c::movable sb-c::foldable sb-c::flushable sb-c::commutative)
  :overwrite-fndb-silently t)

;; same as fast-*/unsigned=>unsigned
(sb-c::define-vop (fast-mult sb-vm::fast-safe-arith-op)
  (:translate modular*)
  (:args (x :scs (sb-vm::unsigned-reg) :target eax)
         (y :scs (sb-vm::unsigned-reg sb-vm::unsigned-stack)))
  (:arg-types sb-vm::unsigned-num sb-vm::unsigned-num)

privet-kitty

name	storage base	size	operand	alt. SCs	const. SCs	save
descriptor-reg	registers	1	qword	control-stack	constant, immediate	t
any-reg	registers	1	qword	control-stack	immediate	t
signed-reg	registers	1	qword	signed-stack	immediate	t
constant	constant	1	qword			nil
fp-single-zero	immediate-constant	1	nil			nil
fp-double-zero	immediate-constant	1	nil			nil
fp-complex-single-zero	immediate-constant	1	nil			nil
fp-complex-double-zero	immediate-constant	1	nil			nil

privet-kitty

Name	Storage classes	Type
t	descriptor-reg	t
positive-fixnum	any-reg, signed-reg, unsigned-reg	(unsigned-byte 62)
unsigned-byte-63	signed-reg, unsigned-reg, descriptor-reg	(unsigned-byte 63)
unsigned-byte-64	unsigned-reg, descriptor-reg	(unsigned-byte 64)
fixnum	any-reg, signed-reg	(signed-byte 63)
signed-byte-64	signed-reg, descriptor-reg	(signed-byte 64)
character	character-reg, any-reg	character
function	descriptor-reg	function

privet-kitty

#!/usr/bin/env bash

# Copyright 2020 Hugo Sansaqua

# Permission is hereby granted, free of charge, to any person obtaining a copy
# of this software and associated documentation files (the "Software"), to deal
# in the Software without restriction, including without limitation the rights
# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
# copies of the Software, and to permit persons to whom the Software is
# furnished to do so, subject to the following conditions:

privet-kitty

begin 664 Main.lisp
M(R$O=7-R+VQO8V%L+V)I;B]S8F-L("TM<V-R:7!T"B,@1D%33`H@(&-O;7!I
M;&5D(&9R;VT@(FAE;&QO+FQI<W`B"B`@=7-I;F<@4T)#3"!V97)S:6]N(#$N
M,2XQ-`K_!@```%@X-BTV-$X`````````!@```#$N,2XQ-#(````H.D=%3D-'
M0R`Z4T(M4$%#2T%'12U,3T-+4R`Z4T(M5$A214%$(#I30BU53DE#3T1%*4P&
M1@```$\```!2````30```$$```!4````!:(/2````&4```!L````;````&\`
M```L````(````'<```!O````<@```&P```!D````(0```'X````E`````0,!
M.`($([1T8>$`````!`0K`0````````"-``$#`B0`(YQT8>$`````HA<O````
M:````&\```!M````90```"\```!U````8@```'4```!N````=````'4````O
M````:````&4```!L````;````&\````N````;````&D```!S````<`````$#

privet-kitty

/*
 * Priority queue with binary heap
 */

#include <iostream>
#include <vector>
#include <utility>
#include <cstdint>

using std::vector; using std::swap;

privet-kitty

Below is the descending list of the first 1000 primes smaller than 2^31 and the largest primitive roots modulo them.

prime      generator
2147483647 2147483634
2147483629 2147483627
2147483587 2147483583
2147483579 2147483576
2147483563 2147483550
2147483549 2147483546
2147483543 2147483541

privet-kitty

Copyright (c) 2018-2021 Hugo Sansaqua

All rights reserved.

Permission is hereby granted, free of charge, to any person obtaining a copy
of this software and associated documentation files (the "Software"), to deal
in the Software without restriction, including without limitation the rights
to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
copies of the Software, and to permit persons to whom the Software is
furnished to do so, subject to the following conditions:

privet-kitty

;; -*- mode: lisp -*-

(defpackage :foo.asdf
  (:use :cl :asdf :uiop)
  (:export #:hideable-system))
(in-package :foo.asdf)

(eval-when (:compile-toplevel :load-toplevel :execute)
  (defclass hideable-system (system)
    ((private :initform nil :initarg :private :reader private-p))