With the Republican establishment attempting to stop real estate mogul Donald Trump from receiving the GOP nomination, a new anti-Trump ad produced by the Emergency Committee for Israel alleges that Trump supports dictators. But what about Democratic presidential candidate Hillary Clinton’s record on dictators? Earlier this week, Clinton addressed the annual AIPAC conference, seeking to cast herself as a stronger ally to Israel than Donald Trump. We examine her record on Israel and U.S. foreign relations at large with Pulitzer Prize-winning journalist Glenn Greenwald, co-founder of The Intercept. Continue reading →

В недавнем разговоре ACE FREHLEY сообщил, что начал работу над оригинальным материалом:

«Из-за вируса всё отодвинулось. Релиз моей пластинки "Origins Vol. 2" перетёк на осень. Ну а я не хочу слишком долго вести праздный образ жизни, поэтому решил записать новую студийную пластинку. Да какого чёрта нет-то?»

По словам Ace'a, "Origins Vol. 2" был готов уже как «несколько месяцев», однако конкретной даты релиза пока нет:

«Мы говорили насчёт конца лета. Может, раньше выйдет какой-то сингл — как раз летом. Мы также обсуждали, что позднее сентября всё не выйдет. Но всё может поменяться. Не цитируйте меня и всё такое. Сначала наступит лето, потом оно закончится. Последнее, что я слышал, — называли сентябрь. Все беспокоятся о своём здоровье. Здоровье на первом месте, потому что без своего здоровья вы ничто». #Ace_Frehley #AceFrehley #HardRock #Hard_Rock #Hard 'n' Heavy #_Hard 'n' Heavy

We started Evil Mad Scientist Laboratories in 2006 as a “personal project blog”, to capture, organize, and share some of the things we do for fun. It has evolved over time to become a resource for our customers as well as a way for us to share interesting and educational information from a variety of … Continue reading Sheltering in place →

IBM and West Virginia University’s Center for Disability Inclusion (CDI) today announced they are developing a first generation mobile workplace accommodation case management app to help U.S. businesses create inclusive workplaces for employees with disabilities.

The Weather Company, an IBM Business announced today that The Weather Channel has launched a cognitive weather bot for Facebook Messenger – powered by IBM Watson. Around the world, Messenger is used to stay in touch with friends and family. Now with The Weather Channel bot, it offers a way to view and share personalized weather-related news content, current conditions, forecasts, severe weather notifications, and other relevant weather information.

[Image: An example of gravitational lens effects, via Wikipedia.] Over at WIRED, Daniel Oberhaus, author of the recent book Extraterrestrial Languages, takes a look at some proposals from NASA’s Innovative Advanced Concept (NIAC) program. “Among this year’s NIAC grants,” Oberhaus writes, “are proposals to turn a lunar crater into a giant radio dish, to develop … Continue reading "Gravitational Lensing, Interstellar Cinematography, and the Future of Magical Warfare in Space"

[Image: EO Browser, Sinergise Ltd/Attribution 4.0 International CC by 4.0), via The War Zone.] Comas of temporarily abandoned cruise ships—maritime ruins in an age of COVID-19—have been popping up on the outer edges of Caribbean islands, visible in satellite photos of the sea. Ships from Carnival, Celebrity, and Royal Caribbean now form a strange new … Continue reading "Snare Space"

IBM (NYSE: IBM) presentó IBM Spectrum Storage, una nueva oferta de software de almacenamiento diseñada para cambiar la economía del almacenamiento mediante una capa de software inteligente. El nuevo software IBM crea una “huella de datos” eficiente que dinámicamente almacena cada bit de información a costo óptimo, maximizando rendimiento y garantizando la seguridad.

IBM anunció dos nuevas soluciones de almacenamiento empresarial completamente basadas en tecnología flash, las cuales ofrecen avanzada eficiencia e incremento en desempeño, así como una sobresaliente confiabilidad para ayudar a reducir costos, y acelerar infraestructuras y aplicaciones con manejo intensivo de datos.

IBM es y ha sido un jugador clave en el progreso de México, liderando en el transcurso de 90 años a diferentes generaciones a través de la transformación de industrias y profesiones, e impactando el panorama económico, académico y social del país gracias a la estrecha colaboración con todos los actores de la sociedad.

IBM (NYSE: IBM) Watson Health y Pfizer Inc. (NYSE: PFE) anunciaron una colaboración que utilizará IBM Watson for Drug Discovery (IBM Watson para el descubrimiento de medicamentos) para ayudar a Pifizer en la investigación inmuno-oncológica, un enfoque para el tratamiento del cáncer que utiliza el sistema inmunológico del cuerpo para ayudar a combatir dicha enfermedad. Pfizer es una de las primeras organizaciones en todo el mundo en implementar Watson for Drug Discovery, y la primera en personalizar la herramienta cognitiva basada en la nube, aprovechando el aprendizaje automático de Watson, el procesamiento del lenguaje natural y otras tecnologías de razonamiento cognitivo para apoyar la identificación de nuevos medicamentos, combinación de terapias para estudio y estrategias de selección de pacientes en inmuno-oncología.

La progresiva digitalización de nuestra sociedad está provocando en las empresas la necesidad de transformarse para sacar el máximo partido de este fenómeno. Esta digitalización procede, principalmente, de la popularización de los dispositivos móviles inteligentes, las redes sociales y el Internet de las Cosas, que generan cada día 2,500 millones de gigabytes de datos. Dentro de toda esta información se esconde un inmenso valor para las organizaciones.

From 1 August young New Zealanders will have a safe virtual city, SciCity, in which they can explore, create and discover thanks to Otago Museum's Discovery World, IBM New Zealand, and ZeDDD Technology.

IBM (NYSE: IBM) reveló hoy una serie de nuevos servidores diseñados para potenciar las cargas de trabajo cognitivas y elevar la eficiencia en el centro de cómputo. Con un nuevo chip, la línea basada en Linux incorpora innovaciones de la comunidad OpenPOWER que ofrecen mayores niveles de desempeño y mayor eficiencia de cómputo que los disponibles en cualquier servidor basado sobre x86.

Less than half of global CEOs believe their enterprises are adequately prepared to handle a highly volatile, increasingly complex business environment, according to a major new survey by IBM of more than 1,500 Chief Executive Officers from 60 countries and 33 industries worldwide, including 22 respondents from New Zealand – the largest number of respondents in eight years of research.

IBM (NYSE: IBM) a annoncé aujourd'hui le Cloud Pak for Security, qui présente des innovations révolutionnaires qui lui permettent de se connecter à n’importe quel outil de sécurité, Cloud ou système en local sans avoir à déplacer des données de leur source d'origine. Disponible dès aujourd'hui, la plateforme inclut une technologie open source pour rechercher les menaces, des capacités d'automatisation pour aider à accélérer les réponses aux cyberattaques et la possibilité de fonctionner dans n'importe quel environnement.

La nouvelle plateforme URights s’appuie sur les solutions analytiques et cloud d’IBM pour mieux valoriser les droits des auteurs, compositeurs et éditeurs de musique

Lingmo’s Translate One2One uses IBM Watson Artificial Intelligence technology to translate in natural language.

dollypopinspiration:

nanushka

Open space with natural light in the Lousiana Museum of Modern Art ✨ via

@mariavannguyen

I'm counting down to the publication of my 20th book, RACE THE SANDS, out 4/21, by sharing pics of each #booknecklace my husband gave me to celebrate each of my prior books...

Book 3 (YA): ICE, a fantasy adventure about an Arctic research scientist & a talking polar bear. The #booknecklace for this one is an adorable polar bear pendant. At the book launch, a reader asked my favorite question ever: "Do you like bears that aren't polar bears?" Yes, I do.

ICE is a modern retelling of the Norwegian folktale East o' the Sun and West o' the Moon. I was inspired by a picture book illustrated by the phenomenal PJ Lynch -- specifically, the moment when the bear asks the "lassie" if she's afraid, and she says defiantly "No."

I wrote this book as a love letter to my husband. And to polar bears.

I'm counting down to the publication of my 20th book, RACE THE SANDS, out 4/21, by sharing pics of each #booknecklace my husband gave me to celebrate each of my prior books...

Book 4 (YA): ENCHANTED IVY is about getting into college. And talking gargoyles and were-tigers... It's set at Princeton University so my #booknecklace is a Princeton tiger.

There's a legend at Princeton that if you walk out the front gate before commencement, you won't graduate. That's what inspired ENCHANTED IVY, except I said if you walk out the gate, you cross into an alternate magical Princeton.

I'm counting down to the publication of my 20th book, RACE THE SANDS, out 4/21, by sharing pics of each #booknecklace my husband gave me to celebrate each of my prior books...

Book 5 (YA): DRINK SLAY LOVE, a snarky fantasy about a 16-year-old vampire who is stabbed through the heart by a unicorn and develops a conscience. My husband tried for a fang #booknecklace, but it was absurdly huge -- the size of actual teeth. So he also got me a unicorn.

I'm counting down to the publication of my 20th book, RACE THE SANDS, out 4/21, by sharing pics of each #booknecklace my husband gave me to celebrate each of my prior books...

Book 6 (YA): VESSEL is about defying destiny. Liyana is destined to sacrifice herself so a goddess can inhabit her body, but the goddess never comes. There are glass dragons in her world, so this #booknecklace is a glass dragon. I wear this one to book events all the time.

VESSEL is the only book I've ever written that was inspired by a dream. I dreamed about a girl dancing barefoot on the sand beneath the moon. She knew that when the dance ended, she would die. I woke up worrying about her and knew I had to write her story.

I'm counting down to the publication of my 20th book, RACE THE SANDS, out 4/21, by sharing pics of each #booknecklace my husband gave me to celebrate each of my prior books...

Book 7 (YA): CONJURED is the creepiest book I've ever written. So creepy I couldn't go into our basement while I was writing it. It's about a teen in the paranormal witness protection program. Lots of magic, a carnival, and a serial killer. Here it is with its #booknecklace.

I'm counting down to the publication of my 20th book, RACE THE SANDS, out 4/21, by sharing pics of each #booknecklace my husband gave me to celebrate each of my prior books...

Book 8 (adult): THE LOST is about a woman who is trapped in a town full of only lost things and lost people. My husband had a #booknecklace made for it that reads "Welcome to Lost," which is what it says on the sign outside of the town of Lost.

I'm counting down to the publication of my 20th book, RACE THE SANDS, out 4/21, by sharing pics of each #booknecklace my husband gave me to celebrate each of my prior books...

Book 9 (YA): CHASING POWER, an Indiana-Jones-style adventure about a girl with telekinesis and a boy who can teleport. Three magic stones play a key role in the story, so my #booknecklace (and earrings) contain three stones, possibly magical.

This book was so much fun to write! Kayla, the protagonist, has a minor power -- the ability to lift small (and only small) objects with her mind. Her true strength is her cleverness. I loved thinking up ways for her to have a big effect with a small amount of magic.

I'm counting down to the publication of my 20th book, RACE THE SANDS, out 4/21, by sharing pics of each #booknecklace my husband gave me to celebrate each of my prior books...

Book 10 (middle grade): THE GIRL WHO COULD NOT DREAM is about a girl whose family owns a dream shop where they buy, bottle, and sell dreams, and the adventure she goes on with her best friend, a monster named Monster who loves cupcakes. My #booknecklace is an adorable monster.

Usually my characters develop over the course of many revisions. But with Monster... It felt like he plopped down on my desk fully-formed and said, "Write my story! And feed me cupcakes!"

I'm counting down to the publication of my 20th book, RACE THE SANDS, out 4/21, by sharing pics of each #booknecklace my husband gave me to celebrate each of my prior books...

Book 11 (adult SFF): THE QUEEN OF BLOOD, Book 1 of The Queens of Renthia, is an epic fantasy set in a world filled with bloodthirsty nature spirits. Only queens have the power to control them. So my #booknecklace is a crown with a tiny blood-red stone.

Writing The Queens of Renthia was such a wonderfully immersive experience. Every day I sat down at my computer, it felt like walking through the wardrobe into Narnia... except it's a Narnia where the trees want to kill you.

I'm counting down to the publication of my 20th book, RACE THE SANDS, out 4/21, by sharing pics of each #booknecklace my husband gave me to celebrate each of my prior books...

Book 12 (middle grade): JOURNEY ACROSS THE HIDDEN ISLANDS is a fantasy adventure for kids about two sisters, one winged lion, and a LOT of monsters. My #booknecklace is a winged lion!

This book was born one day when I wandered into the kitchen and announced, "I want to write a book about a winged lion." My husband said, "Great! How about plot, characters...?" "Winged lion!" I shouted. And then I wrote it.

I'm counting down to the publication of my 20th book, RACE THE SANDS, out 4/21, by sharing pics of each #booknecklace my husband gave me to celebrate each of my prior books...

Book 13 (picture book): ROAR AND SPARKLES GO TO SCHOOL is my first picture book, art by the amazing Ben Whitehouse. Roar the dragon is worried about his first day of school, but luckily he has his big sister Sparkles to help him through it. My #booknecklace is a little dragon!

My favorite part of writing this book was inventing the dragon school -- imagining a day in the life of a draconian kindergartner. I knew from the start he'd char his lunch with his breath, play hide-and-seek-the-princess in gym, and ride a dragon bus to school!

I'm counting down to the publication of my 20th book, RACE THE SANDS, out 4/21, by sharing pics of each #booknecklace my husband gave me to celebrate each of my prior books...

Book 14 (adult SFF): THE RELUCTANT QUEEN, Book 2 of The Queens of Renthia. Bloodthirsty nature spirits, a dying queen, and a middle-aged woman who wants nothing to do with the power she could wield. This book shares a #booknecklace with THE QUEEN OF BLOOD but we added blood-red earrings!

I actually wrote 90 pages of THE RELUCTANT QUEEN (book 2) before I wrote THE QUEEN OF BLOOD (book 1). My editor at Harper Voyager, the awesome David Pomerico, read the pages and said, "Can this be book two?" And now I can't imagine it being any different.

In THE RELUCTANT QUEEN, I wrote my first middle-aged heroine. She's definitely not the last! The protagonist of my upcoming RACE THE SANDS is a badass middle-aged single mom!

I'm counting down to the publication of my 20th book, RACE THE SANDS, out 4/21, by sharing pics of each #booknecklace my husband gave me to celebrate each of my prior books...

Book 15 (MG): THE STONE GIRL'S STORY is about a twelve-year-old girl made of stone who, when the carvings that brought her and her stone friends to life begin to fade, must go on a quest to save them all. So my husband gave me a #booknecklace made of stones!

THE STONE GIRL'S STORY is, at its heart, a story about stories. I believe that stories are as essential to life as food, water, and shelter. They're how we understand who we are. I wrote this book for everyone who wants to shape the story of their life and choose their own destiny.

It was surprisingly tricky to write about a character made of stone. She can't smell, taste, or sleep. Her stomach never drops, clenches, or feels butterflies. I couldn't use any of the common physical reactions to convey emotions, because stone. Made for a fun writing challenge!

I'm counting down to the publication of my 20th book, RACE THE SANDS, out 4/21, by sharing pics of each #booknecklace my husband gave me to celebrate each of my prior books...

Book 16 (adult SFF): THE QUEEN OF SORROW, Bk 3 of The Queens of Renthia, is the final battle between vicious spirits and three strong-willed queens. I loved writing these books so much that I cried when I finished. This book shares its #booknecklace with the first two in the series.

I loved writing an epic fantasy trilogy! It's something I've wanted to do ever since my mom introduced my eleven-year-old self to the SFF shelves in the Northboro Public Library and placed THE SWORD OF SHANNARA by Terry Brooks in my hands.

I'm counting down to the publication of my 20th book, RACE THE SANDS, out 4/21, by sharing pics of each #booknecklace my husband gave me to celebrate each of my prior books...

Book 17 (YA): FIRE AND HEIST is about a sixteen-year-old socialite from a family of master thieves... who can also breathe fire. Think Ocean's Eleven with were-dragons! My #booknecklace for this one is, quite appropriately, a flame!

While I was writing FIRE AND HEIST, I watched so many YouTube videos on how to pick locks, read so many articles on real-life heists, and researched the specs of so many secure vaults that I wanted to add a disclaimer to all my Google searches: "This is for a book! Really!"

I'm counting down to the publication of my 20th book, RACE THE SANDS, out 4/21, by sharing pics of each #booknecklace my husband gave me to celebrate each of my prior books...

Book 18 (adult SFF): THE DEEPEST BLUE is a standalone epic fantasy set in the same world as The Queens of Renthia (but you don't have to have read the trilogy first -- it's a true standalone). It features a LOT of sea monsters so my #booknecklace is a sea monster!

When I saw the cover for THE DEEPEST BLUE, I was thrilled to see that the artist (Larry Rostant) had depicted the sea monsters precisely as I'd imagined them. The sea dragon, the kraken, and the multi-headed snake -- those are my murder-babies!

I'm counting down to the publication of my 20th book, RACE THE SANDS, out 4/21, by sharing pics of each #booknecklace my husband gave me to celebrate each of my prior books...

Book 19 (MG): SPARK is my newest book for kids. It's about a girl and her lightning dragon (a storm beast), and how even the quietest voice can change the world. My #booknecklace is a lightning bolt, and I wore it so much that I broke the chain.

I wrote SPARK for all the quiet kids out there. But it's not about a quiet kid who learns to be loud. It's about a quiet kid who discovers that she's strong exactly as she is. She doesn't have to change herself to change the world.

I also wrote it because I not-so-secretly want my own lightning dragon.....

I'm counting down to the publication of my 20th book, RACE THE SANDS, out 4/21, by sharing pics of each #booknecklace my husband gave me to celebrate each of my prior books...

Book 20 (adult SFF): RACE THE SANDS. And this brings us to my newest book and newest #booknecklace! Tomorrow my 20th book comes out! It's a standalone epic fantasy about monster racing. The primary monster is a metal lion, and my husband found the most perfect necklace on Etsy!

Today is the book birthday for my new epic fantasy novel for adults, RACE THE SANDS!!! My 20th book!!! It's about two kickass women vying to become monster racing champions. I loved writing this book, and I hope it will provide an escape to everyone who needs one. 

Tomorrow (Friday 5/8) I'll be taking over the HarperCollins Library Love Fest Instagram to show you my writing space, with a video tour at 11am EDT. Come visit my writing room, meet my cat, and see where I create my monsters and the women who ride them! https://www.instagram.com/harperlibrary

TODAY!!! Come visit me on the HarperCollins Library Love Fest Instagram today (Fri 5/8)! I'm taking over their Instagram account all day to show you pictures and videos of my writing space! Just posted the video tour! 

https://www.instagram.com/harperlibrary

Hey Everyone! Just want to let you all know that HamletMachine has set up Starfighter related accounts on both Twitter and Facebook. You'll now be able to get Starfighter updates on whichever site you prefer! You can get to these Starfighter related pages at any time via the icons in the upper-right hand side of this page. Feel free to drop by and say hello!

In other news, we've added a set of 1" buttons to the Starfighter Shop. You get one each of Cain, Abel, and the Starfighter Logo!

Also, I have it on good authority that a new page is on the way! -Thisbe

Méně stolů a větší rozestupy. Jihomoravské restaurace v pondělí otevřou své zahrádky. Musí dodržet přísná opatření proti šíření koronaviru, přesto nemají alternativu pro špatné počasí.

Don't expect a pack of running fanatics swarming to the finish line at road races this year. But that doesn't mean that participants don't have options.

Od 1. září 2022 nebude možné provozovat kotle na tuhá paliva, které nevyhovují přísnějším emisním normám. Včasnou výměnou kotle můžete ušetřit. Nejenže snížíte náklady za topení, ale stihnete navíc využít státní dotaci na jeho pořízení. Víte, jak na to? Otestujte své znalosti.

(in-package #:cl-pestilence)

;;   This is _not_ a simulation. It's just a game. And any resemblance
;; to any world, real or imaginary, is entirely coincidental.

;;   You can copy/paste this post in its entirety into a Common Lisp
;; REPL and play around with it if you like. I'm documenting it where
;; possible, but it's just a small toy to poke at for the moment.

;;   I've been thinking a lot about asymmetric multiplayer games and
;; <gestures wildly to world at large> all this.
;; I'm not actively _trying_ to model it accurately, but it's probably
;; obvious what's been consuming my thoughts lately.

;;   Let's get right into this. I'll explain as I go, and tie a few things
;; together neatly at the end. I hope. Regardless, there will absolutely
;; be a repo sometime fairly soon.

;; A place can be tagged arbitrarily, and can contain occupants.
;; They also collect points.

(defclass place ()
  ((tags :initarg :tags :initform nil :accessor tags)
   (occupants :initarg :occupants :initform nil :accessor occupants)
   (points :initform 0 :accessor points)))

(defun place? (thing)
  (eq (find-class 'place) (class-of thing)))

(defun place (&key tags occupants)
  (make-instance 'place :tags tags :occupants occupants))

(defun gen-place ()
  (let ((tag (pick '(:apartment-building :house :cottage
		     :office-building :factory :store
		     :cafe :lounge :theater))))
    (place :tags (list tag))))

(defmethod details ((place place))
  (format nil "====================~%~a {~{~a~}}~%~{  ~a~^~%~}~%"
	  (first (tags place))
	  (rest (tags place))
	  (mapcar #'details (occupants place))))

(defmethod show ((place place))
  (format nil "~20@a ~5a [~{~a~}]~%"
	  (first (tags place)) (points place)
	  (mapcar #'show (occupants place))))

;; A peep goes places.
;; They have
;;  - their daily routine (a list of places to visit)
;;  - their todo (the part of their routine they still need to do;
;;                they are currently at the first place in this list)
;;  - their health (a number from 0 to 100)
;;  - a list of plagues
;; Finally, they _also_ collect points.

(defclass peep ()
  ((routine :initarg :routine :initform (list) :accessor routine)
   (todo :initarg :todo :initform nil :accessor todo)
   (health :initarg :health :initform 100 :accessor health)
   (plagues :initform nil :accessor plagues)
   (points :initform 0 :accessor points)))

(defun peep? (thing)
  (eq (find-class 'peep) (class-of thing)))

(defun peep (&key places)
  (make-instance 'peep :routine places :todo places))

(defun health->string (health)
  (cond ((>= health 90) "@")
	((>= health 80) "0")
	((>= health 70) "O")
	((>= health 50) "o")
	((>= health 30) ":")
	((>= health 1)  ".")
	(t "☠")))

(defmethod details ((peep peep))
  (format nil "[~a ~3d [~{ ~a~^ ->~}]]"
	  (health->string (health peep)) (health peep)
	  (mapcar
	   (lambda (place) (first (tags place)))
	   (routine peep))))

(defmethod show ((peep peep)) (health->string (health peep)))

;; A world is a list of places, occupied by peeps. The world we start
;; peeps in also determines their routine.

(defun gen-world (&key (num-places 20) (num-peeps 100))
  (let ((places (loop repeat num-places collect (gen-place))))
    (loop repeat num-peeps
       do (let* ((routine (loop repeat 5 collect (pick places)))
		 (peep (peep :places routine)))
	    (push peep (occupants (first routine)))))
    places))

(defmethod details ((world list))
  (format nil "~%~{~a~}~%" (mapcar #'details world)))

(defmethod show ((world list))
  (format nil "~%~{~a~}~%" (mapcar #'show world)))

(defmethod all-peeps ((world list))
  (loop for place in world append (all-peeps place)))

(defmethod all-peeps ((place place))
  (loop for o in (occupants place) if (peep? o) collect o))

;; `tick!`ing a world means moving every peep through their routine once.
;;   We `tick!` each peep, then `tick!` each place until all the peeps are
;; done. Then we reset their routines.
;; You can think of this as a turn in the game.

(defmethod tick! ((world list))
  (let ((peeps (all-peeps world)))
    (loop while peeps
       do (setf peeps
		(loop for p = (pop peeps) while p
		   for res = (tick! p)
		   if res collect res))
       do (mapc #'tick! world)
       do (format t "~a" (show world)))
    (loop for p in (all-peeps world)
       do (setf (todo p) (routine p))))
  world)

;; Don't worry about the details of how to `tick!` peeps or places yet.

;;   Ok, here's where it gets a bit darker. Although we _did_
;; foreshadow this in the definition of `peep`. And also in the title
;; of the accompanying blog post.

;; A plague is another living thing.
;; It has
;;  - a host (a peep that it's infecting)
;;  - a signature (a token representing its lineage and strain)
;;  - health (how well it's doing inside its host)
;;  - virulence (how likely it is to spread to another host)
;;  - efficiency (how efficient they are at feeding)
;;  - reproduce (a function that returns a new instance to push into a new host)
;;  - and a strategy (a function, possibly closed, that takes
;;    itself and its host peep and mutates)

;; Plagues do not collect points; they score differently.

(defclass plague ()
  ((host :initarg :host :initform nil :accessor host)
   (signature :initarg :host :initform "SIG" :accessor signature)
   (health :initarg :health :initform 10 :accessor health)
   (virulence :initarg :virulence :initform 10 :accessor virulence)
   (efficiency :initarg :efficiency :initform 0.2 :accessor efficiency)
   (reproduce
    :initarg :reproduce
    :initform
    #'plague
    :reader reproduce)
   (strategy
    :initarg :strategy
    :initform
    (lambda (plague peep)
      (feed! plague peep 30))
    :reader strategy)))

(defun plague ()
  (make-instance 'plague))

;; Plagues can `feed!` on peeps or plagues. To feed means to
;; take away some of the targets' health and add some to your own.

(defmethod feed! ((self plague) (peep peep) (amount integer))
  (decf (health peep) amount)
  (incf (health self) (* (efficiency self) amount)))

(defmethod feed! ((self plague) (plague plague) (amount integer))
  (decf (health plague) amount)
  (incf (health self) (* (efficiency self) amount)))

;; Plagues can also `infect!` peeps by `reproduce`ing into them.

(defmethod infect! ((self plague) (peep peep))
  (unless (infected-by? self peep)
    (let ((child (funcall (reproduce self))))
      (setf (host child) peep)
      (push child (plagues peep)))))

(defmethod infected-by? ((self plague) (peep peep))
  (member (signature self) (mapcar #'signature (plagues peep))
	  :test #'string=))

;;  `tick!`ing a plague causes it to weaken and also carry out its strategy.
;; This models the background effect of the immune system of its host.

(defmethod tick! ((plague plague))
  (decf (health plague) 1)
  (funcall (strategy plague) plague (host plague))
  plague)

;;  `tick!`ing a peep means moving them to their next place, and also
;; `tick!`ing any plagues they may have contracted. Also, peeps are
;; resilient; they heal a small amount each time they tick (to a
;; maximum of 100).
;;  If a peep dies, they no longer move. And their plagues probably
;; won't do well. Peeps like to go places. They score points for each
;; place they go to.

(defun dead? (thing) (>= 0 (health thing)))

(defmethod tick! ((peep peep))
  (unless (dead? peep)
    (let ((location (pop (todo peep))))
      (incf (points peep))
      (setf (occupants location) (remove peep (occupants location)))
      (push peep (occupants (or (first (todo peep)) (first (routine peep)))))
      (setf (health peep) (min 100 (+ 5 (health peep))))
      (mapc #'tick! (plagues peep))
      (unless (empty? (todo peep))
	peep))))

;; `tick!`ing a place causes it to score for each `peep` present. And it causes
;; any `plague`s on present `peep`s to try to `infect!` other nearby peeps.
;; Places also lose points for each dead peep they contain.

(defmethod tick! ((place place))
  (incf (points place) (length (occupants place)))
  (loop for peep in (all-peeps place)
     if (dead? peep)
     do (decf (points place) 2)
     else do (loop for plague in (plagues peep)
		do (loop for victim in (remove peep (all-peeps place))
		      if (>= (virulence plague) (random 100))
		      do (infect! plague victim))))
  place)

;;  So, now we've got the basic framework of the game in place. There are three
;; players in this game: places, peeps and plagues.
;;   A plague player automatically loses if they are completely cured, and
;; automatically wins if they manage to kill everyone. That's fairly simple.
;;   A place player wins if they manage to cure the plague. They automatically
;; lose if all the peeps die. Also, fairly simple.
;;   A peep player is trying to survive. If they manage to make it some numer
;; of turns before dying, then we have to score the game instead of declaring
;; an outright winner regardless of game state.

;;   A peep player's score is the total number of points plus remaining health
;; on all of their peeps, minus the number of active plagues on said peeps.
;;   A plague player's score is the total number of health of their plagues,
;; with a multiplier equal to the number of places fully infected by
;; their plague.
;;   A place player's score is the total number of points in their places.

(defun score (world)
  (list :peep (let ((score 0))
		(loop for p in (all-peeps world)
		   unless (dead? p)
		     do (incf score (+ (health p) (points p)))
		   do (decf score (length (plagues p))))
		score)
	:place (let ((score 0))
		 (loop for p in world
		    do (incf score (points p)))
		 score)
	:plague (let ((score 0))
		  (loop for victim in (all-peeps world)
		     do (loop for p in (plaguesvictim)
			   do (incf score (max 0 (health p)))))
		  (loop for target in world
		     if (every
			 (lambda (victim)
			   (not (empty? (plagues victim))))
			 (all-peeps target))
		     do (setf score (* 2  score)))
		  score)))

;;   I think that's all I've got for now. This is definitely an idea I want
;; to run with. At the moment, it's just a tiny, in-repl proof-of-concept,
;; and not particularly fun, but I'm going to try developing it further with an
;; eye towards turning it into an actual web game playable from this site.

;; As always, I'll let you know how it goes.

(defun pick (lst)
  (nth (random (length lst)) lst))

(defun empty? (lst)
  (null lst))