Disney has announced that it will be producing a new Robin Hood movie.

Yes, that Robin Hood.

read more

The Voyages of Cinrak the Dapper is a collection of seven short stories written by A. J. Fitzwater centred around Cinrak, a lesbian, capybara pirate. It has a couple of strong elements as well as several weak points. I struggled with my thoughts as I read it and, in the end, I would say that, overall, I found it frustrating.

I will start this review briefly talking about politics. It might seem like an unusual starting point but the introduction makes clear that the book is political and it touches on several hot button issues.

Come for handsome, huggable Cinrak in a dapper three-piece, stay for her becoming a house-ship Mother to an enormous found family, the ethical polyamory, trans boy chinchilla, genderqueer rat mentor, fairy, and whale, drag queen mer, democratic monarchy, socialist pirates, and strong unionization.

What I do like about the way politics is handled in this book, is that it is not set up as a conflict between opposing ideologies; the book presents its favoured way of seeing the world and just leaves it as that. Even the religious character (and there is a fascinating take on religion inside) is played off sympathetically. However, by taking the stances it does, the book is also going to be, though it has no regrets about it, alienating for certain readers. If you can not tolerate a heavy emphasis on, and I quote, LGBTQIA characters, then this book is definitely not for you and you may as well stop here. On the other hand, if that’s what you crave, it may be exactly what you want and you should read further.

read more

SANDERS: ... there is more coverage about the political gossip of a campaign, about raising money, about polling, about somebody saying something dumb, or some kid works for a campaign sends out something stupid on Facebook, right? We can expect that to be a major story. But what your job is, what the media's job is, is to say, look, these are the major issues facing the country. We're a democracy. People have different points of view. Let's argue it. Continue reading →

Chuck Todd tells Andrea Mitchell that Hillary Clinton will win the African-American and Hispanic vote in spite of the intellectual appeal of Bernie Sanders to liberal white voters Continue reading →

IBM Security today announced the results of a global study exploring the implications and effects of data breaches on today’s businesses. Sponsored by IBM Security and conducted by Ponemon Institute, the study found that the average cost of a data breach is $3.62 million globally , a 10 percent decline from 2016 results. This is the first time since the global study was created that there has been an overall decrease in the cost. According to the study, these data breaches cost companies $141 per lost or stolen record on average

IBM prévoit plusieurs investissements stratégiques pour soutenir le programme finlandais de soins de santé

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

Annonce la commercialisation des technologies clés de Project Debater intégrées à IBM Watson, afin de permettre aux entreprises de commencer à exploiter et analyser les aspects les plus difficiles du langage humain.

Today IBM announced the Australian results of the global 2017 Ponemon Cost of Data Breach report.

An IBM (NYSE: IBM) study of 26,000 consumers from 14 countries -- including almost 2,000 Australians.-- found that over 60% of Australian consumers identify themselves as “apathetic” in their choice of primary retailer – almost double those who see themselves as advocates of a particular retailer. As such Australian retailers have a significant opportunity to capture shopper loyalty, but they need to capitalise on existing investments in multi-channel and accelerate customer engagement across all channels, including mobile devices and social media platforms in order to win in this globally competitive sector.

Three-time Olympic champion Sun Yang has lodged an appeal an appeal to the Swiss federal court in an attempt to overturn his eight-year doping ban.

Posted by: brerrabbit

( Read more... )

• 1 red bell pepper, thinly sliced ($.70)
• 1 yellow or orange bell pepper, thinly sliced ($.70)
• 1 cup mushrooms, sliced ($1.50)
• 1 cup black or kalamata olives ($1.50)
• 1/2 cup thinly sliced onion ($.20)
• 1/4 cup olive oil ($.20)
• 2 tablespoons lemon juice ($.40)
• 2 tablespoons apple cider vinegar ($.20)
• 2 tablespoons maple syrup or agave (optional, for those who like a touch of sweet) ($.20)
• 1 tablespoon onion powder
• 1 teaspoon freshly minced garlic
• 1 teaspoon dried basil (or 1 tablespoon fresh, chopped)
• 1 teaspoon dried oregano 
• 1 teaspoon salt (or to taste)
• 1/2 teaspoon pepper (or to taste)
• 1-2 medium sized zucchini, spiralized 

So recently, I had to use zippers at work. Specifically, the Clojure implementation. There were some close-to-arbitrary transformations I needed to do with some close-to-arbitrary trees and it turned out that zippers were more efficient than the alternatives¹.

Using them this way, combined with the general state of the world and my free time, finally tipped me into doing some more Common Lisp development. Before, I go any further, let me be clear about something.

I Like Clojure

Seriously.

Its logo is up top in the language bar, I was one of the inaugural members of the Toronto Clojure User Group, I recommend it as a first lisp you should learn, and have for about six years now. I'm also painfully aware of the shortcomings of Common Lisp, and make no excuses for them.

However.

• I don't like the JVM. It's slow as balls, its' deployment options are less than ideal for my purposes, its' error system is at best useless, and Clojure without it is unlikely.
• Clojurescript build incompatiblities are, if anything, worse².
• I don't like the underlying licensing decisions.

These are deep reasons to stay away. They're not the sort of thing I can paper over with a library or two. Fixing them would mean a superhuman amount of work poured into the underlying technical and social infrastructure, and I'm not into it. I wouldn't be into it even if the community was interested in heading that way, and near as I can tell, they're not particularly.

Whether or not I think you should learn Clojure as your first³ lisp, it definitely wasn't my first lisp. The more uniform, mostly-better-thought-out interface, lack of historical baggage and functional data structures are not enough to pull me all the way over.

It is enough for me to start plotting a smash-and-grab of as much of the stuff I like as I can carry. Which is exactly what clj represents. As of this writing, it defines and exports exactly four symbols: if-let, when-let, -> and ->>. This is a tiny beginning of the list, and I fully plan to put something more substantial together using cl-hamt, named-readtables, test-utils and possibly optima. Stay tuned to that repo if you're interested, but it's not the focus today.

cl-zipper

The thing that percipitated this thought was having used the Clojure Zipper implementation. So, obviously, this is something I want next time I need to manipulate trees in Common Lisp. The paper is here, and unless you have a terminal phobia of datastructures⁴, you should go read it. It's six pages, they're light, and one of them taken up by the intro and references.

The operations defined in the paper are left, right, up, down, insert_right, insert_left, insert_down and delete. There's a few conveniences defined for the Clojure version, and I've implemented some of my own stuff too. Lets go through the main file in almost-literate style.

First up, we have constructors.

(defstruct path
  (left) (path) (right))

(defstruct loc
  (node)
  (path)

  (fn-branch?)
  (fn-children)
  (fn-make-node))

;;;;;;;;;; Constructors
(defun zipper (branch? children make-node root)
  (make-loc
   :node root
   :fn-branch? branch? :fn-children children :fn-make-node make-node))

(defmethod make-zipper ((thing list))
  (zipper #'listp #'identity (lambda (node children) (declare (ignore node)) children) thing))

(defun make-node (zipper children)
  (funcall (loc-fn-make-node zipper) zipper children))

You can see influence from both clojure.zip and the paper here. I'm taking the lead from the paper by explicitly separating the path triple our from the loc definition. However, I'm not explicitly defining my own type tree the way that Huet does. Instead, I'm going to be dealing with assorted lisp trees. These could be implemented as lists, vectors, hashes, or any number of other formats. I'm going to implement a few type-distpatching built-ins, including the make-zipper list method above, but the basic zipper function just needs to take an interface as input in the form of branch?, children and make-node arguments. This is the same solution that the Clojure implementation went with, and I see no reason to go a different way. The only material difference is that theirs uses the Clojure metadata system, while I explicitly define slots in the loc structure.

Now that we can construct, we need to be able to select.

;;;;;;;;;; Selectors
(defun branch? (zipper) (funcall (loc-fn-branch? zipper) (loc-node zipper)))
(defun children (zipper)
  (funcall
   (loc-fn-children zipper)
   (loc-node zipper)))
(defun node (zipper) (loc-node zipper))
(defun path (zipper) (loc-path zipper))

(defun lefts (zipper)
  (when (loc-path zipper)
    (reverse (path-left (loc-path zipper)))))

(defun rights (zipper)
  (when (loc-path zipper)
    (path-right (loc-path zipper))))

The basic navigation is four functions; down, up, left and right

;;;;;;;;;; Navigation
;;;;;;;;;;;;;;; Basic navigation
(defun down (zipper)
  (when (children zipper)
    (let ((fresh (copy-loc zipper)))
      (setf (loc-node fresh) (first (children zipper))
	    (loc-path fresh)
	    (make-path
	     :left nil
	     :path (loc-path zipper)
	     :right (rest (children zipper))))
      fresh)))

(defun up (zipper)
  (when (path zipper)
    (let ((fresh (copy-loc zipper)))
      (setf (loc-node fresh)
	    (make-node
	     zipper (append
		     (reverse (path-left (path zipper)))
		     (cons (loc-node zipper)
			   (path-right (path zipper)))))
	    (loc-path fresh) (path-path (path zipper)))
      fresh)))

(defun left (zipper)
  (when (and (path zipper) (path-left (path zipper)))
    (let ((fresh (copy-loc zipper)))
      (setf (loc-node fresh) (first (path-left (path zipper)))
	    (loc-path fresh)
	    (make-path
	     :left (rest (path-left (path zipper)))
	     :path (path-path (path zipper))
	     :right (cons (loc-node zipper) (path-right (path zipper)))))
      fresh)))

(defun right (zipper)
  (when (and (path zipper) (path-right (path zipper)))
    (let ((fresh (copy-loc zipper)))
      (setf (loc-node fresh) (first (path-right (path zipper)))
	    (loc-path fresh)
	    (make-path
	     :left (cons (loc-node zipper) (path-left (path zipper)))
	     :path (path-path (path zipper))
	     :right (rest (path-right (path zipper)))))
      fresh)))

The main difference between this and the paper is that I've chosen nil as my Top representation, which lets me pull the trick of using when to check for the presence of a path, and its' non-Top-ness at the same time.

The bad news is that since Common Lisp doesn't have pervasive functional data structures, I have to explicitly copy locs while moving through a tree. The good news is that the copy is fairly light weight. Effectively, I'm copying out a set of 5 pointers, and could get that down to 3 by defining an intermediate struct.

Hm.

Which I probably should do. Note to self.

Out of those, we get three compound navigation functions. With more probably coming soon. Specifically, I found find useful for the work I did. It's easily externally definable, but would be even easier to bundle along. The ones I've already implemented are root, leftmost and rightmost.

;;;;;;;;;;;;;;; Compound navigation
(defun root (zipper)
  (if-let (z (while zipper #'up))
    (node z)))

(defun leftmost (zipper) (while zipper #'left))

(defun rightmost (zipper) (while zipper #'right))

...
(defun until (zipper f)
  (let ((z zipper))
    (loop for next = (funcall f z) while next
       when next do (setf z next))
    z))
...

That's the traversals done. Next up, we've got modification, without which this library is fairly useless. The basics are replace, delete and the insert/child twins.

;;;;;;;;;; Modification
(defun replace (zipper node)
  (let ((fresh (copy-loc zipper)))
    (setf (loc-node fresh) node)
    fresh))

(defun delete (zipper)
  (when (path zipper)
    (let ((fresh (copy-loc zipper))
	  (fresh-path (copy-path (loc-path zipper))))
      (cond ((rights zipper)
	     (setf (loc-node fresh) (pop (path-right fresh-path))
		   (loc-path fresh) fresh-path))
	    ((lefts zipper)
	     (setf (loc-node fresh) (pop (path-left fresh-path))
		   (loc-path fresh) fresh-path))
	    (t (setf (loc-path fresh) (path-path fresh-path))))
      fresh)))

(defun insert-child (zipper node)
  (replace
   zipper
   (make-node
    zipper
    (cond ((not (branch? zipper))
	   (list node (node zipper)))
	  ((children zipper)
	   (cons node (children zipper)))
	  (t (list node))))))

(defun append-child (zipper node)
  (replace
   zipper
   (make-node
    zipper
    (cond ((not (branch? zipper))
	   (list (node zipper) node))
	  ((children zipper)
	   (append (children zipper) (list node)))
	  (t (list node))))))

(defun insert-left (zipper node)
  (let ((fresh (copy-loc zipper))
	(fresh-path (copy-path (loc-path zipper))))
    (push node (path-left fresh-path))
    (setf (loc-path fresh) fresh-path)
    fresh))

(defun insert-right (zipper node)
  (let ((fresh (copy-loc zipper))
	(fresh-path (copy-path (loc-path zipper))))
    (push node (path-right fresh-path))
    (setf (loc-path fresh) fresh-path)
    fresh))

The paper defines an insert_down function. It fails on a Leaf node, and otherwise inserts a singleton branch at the given location. The insert/append child functions above also insert nodes at a lower level at the current loc. They give you a choice about whether to insert the new node as the leftmost or rightmost child, and additionally succeed on Leaf nodes by including the leaf value as a child of the new branch.

There are, thus far, three compound modification functions; edit, splice-left and splice-right.

(defun edit (zipper f &rest args)
  (replace zipper (apply f (node zipper) args)))

(defun splice-left (zipper node-list)
  (reduce #'insert-left node-list :initial-value zipper))

(defun splice-right (zipper node-list)
  (reduce #'insert-right (reverse node-list) :initial-value zipper))

edit takes a function instead of a new node, and replaces the node at loc with the result of running that function on the existing node. The splice-* twins are fairly self-explanatory; they're like insert-left/insert-right, but work on multiple nodes rather than single ones.

I haven't yet implemented next, prev and remove because these might relate to the different representation of the traversal end? state. The reason for this seems to be that next/prev/remove assume a depth-first traversal. The reason I'm being weasely here is that I haven't thought about it hard enough to be sure that the end? marker is really necessary. It also seems odd to privilege depth-first over breadth-first traversals; ideally, I think you'd want to be able to support either. Possibly interchangeably.

Minor Housekeeping

That wraps it up for this edition. My immediate intention is to do more work on the cl-zipper and clj libraries, as well as that game I mentioned last time. Ideally, I'd like to up my blogging output too. Probably not to the same volume as I had at my peak, but it was definitely helpful to keep some sort of written journal around for a while. The current state of the world is, hopefully, going to make it easy for me to get more programming time in. All things considered, I'd count that as a win.

1. Although admittedly, it does require me to explain the concept of zippers to a few other people for maintenance purposes. So ironically, this adds complexity despite being much more technically elegant than other options.↩
2. There's a reason that langnostic.js is a raw JS file, rather than compiled from clojurescript source, and that reason is like 90% that the compilation process is nontrivial to set up.↩
3. "First", not "only". You can probably make educated guesses about which other ones I think you should learn.↩
4. In which case, why are you here? This blog could kill you accidentally with an errant click or two. You should probably just go do something else.↩

He’s standing in the dead middle of the meat section at Price Chopper screaming “HOW CAN THERE NOT BE ANY FUCKING STEAK?”  Someone comes out bearing chicken from behind the steel clad gates of the backroom where they cut meat and stage the cases. “Hey, you got any steak back there?” “Steak? No sir. None.” […]

The 1996 Ig Nobel Prize for biology was awarded to Anders Barheim and Hogne Sandvik of the University of Bergen, Norway, for their tasty and tasteful report, “Effect of Ale, Garlic, and Soured Cream on the Appetite of Leeches.” Recently, Bradley Allff, writing in Atlas Obscura, looked at the role medical leeches sometimes play in medicine in the USA. […]

Hi guys,  I don’t know what happened to all of my recent messages, I am guessing that the Clouds were at their nasty work again – stealing!  So I am going to write more and you write me back ok? Well I just got back from one of my favorite little planets, planet Earth.  I […]

Zombie Strippers has got to be hands down one of the cheesiet, oddest, zombie movies movies I have ever seen

A trooper stopping a car with a suspected "impaired driver" on a U.S. highway on Monday was bemused to find a 5-year-old in the driver's seat, the Utah Highway Patrol tweeted.

John Sullivan, deputy chief of the Worcester Fire Department/vice chair of the IAFC health and safety section, discusses why it's so important for firefighters to get physical exams each year.  The average age of a first heart attack for the general

Welcome to a very special episode of PotterCast!

This week, J.K. Rowling angered and saddened many fans when she came out in support of a woman whose company had not renewed her employment contract because she refused to recognize the legally protected rights of trans people. In coming back from a months-long Twitter hiatus, J.K. Rowling mischaracterized the facts of the case in support of a dangerous and unscientific movement that invalidates the trans experience, and in doing so flies in the face of medical consensus worldwide.

Her comments also confused a lot of fans who are not fully familiar with the issues at stake, or cannot understand how someone whose book series is so vehemently about tolerance can express support for a woman whose views invalidate so many people's existences. That's why in this episode, we are going over it all.

Jackson Bird, longtime friend of the podcast and of Leaky, as well as author, trans activist and educator, and expert Waffler, joins us to explain and process what this means for Harry Potter fans. We discuss:

• What actually happened
• What J.K. Rowling said versus what happened to the woman in question, Maya Forstater
• Why many fans saw this coming
• What to do now that the creator of the series we love so dearly has taken this stance
• How to support trans and non-binary communities
• How we as fans are feeling about all of this
• What to do now, especially since we still love this community

We hope you'll listen and share. Here are some helpful resources, including things we mention in the show:

• Jack's book! SORTED: Growing up, coming out, and finding my place
• A list of information from medical communities around the world validating that trans and non-binary people exist
• GLAAD's transgender media program has great resources, FAQs, ways to take action, and ways to learn
• Transstudent.org has more Information regarding sex and gender
• GONADS, the great series by RadioLab

News articles regarding this incident:

• The Cut
• Vox (on British culture and the "gender critical" movement)
• The Mary Sue

News articles regarding past incidents that have also upset the community:

• The Mary Sue on Johnny Depp and the Crimes of Grindelwald
• Past indicators that J.K. Rowling was following trans-exclusionary ideologies
• The Guardian on J.K. Rowling's writings on Native American cultulre
• "The Harry Potter Series Makes a Mess of Its Commentary on Racism" — The Mary Sue
• "Is Fantastic Beasts 2 Racist? Not Quite" — The Washington Post

PotterCast and Leaky stand with our trans and non-binary friends and colleagues. 

This episode is in the process of being transcribed. For more, see pottercast.com.

After it was revealed Friday that Mike Pence's spokesperson, who is Stephen Miller's wife, Katie Miller, tested positive, Trump gave an illogical and moronic response to the media about her and coronavirus testing in general.

Trump said, "She tested very good for a long period of time, and then all of a sudden today, she tested positive."

That's the way any virus spreads, especially one as infectious as COVID-19. One day you don't have it, and the next, if you're not protecting yourself, you've got it.

Trump said he and Pence tested negative after her results came back.

"So she tested positive out of the blue," he said.

A person doesn't test positive out of the freaking blue. They were contaminated by somebody else. It's Basic Science 101.

Trump continued, "This is why the whole concept of tests aren’t necessarily great."

Trump has admitted how much he hates the idea of testing Americans in general, not because they are unreliable, but because it affects the number of cases that are reported, and makes him look bad.

What a swell guy.

Then he made another baffling statement that makes no sense in any reality. Trump said, "The tests are perfect, but something can happen between a test where it’s good and then something happens and all of a sudden…”

read more

These challenging times require fierce, broad, and intersectional activism – which is just what Civil Liberties and Public Policy (CLPP) has been doing for the past four decades. This now-independent nonprofit, which used to be affiliated with Hampshire College, continues its unique movement-building work preparing younger activists to work on the front lines of today’s struggle for reproductive justice. Please consider supporting CLPP today with a generous donation. 

As we know, the Covid-19 pandemic is disproportionately harming those in our communities who were already facing ... More

The post Please Support Civil Liberties and Public Policy During the Covid-19 Crisis: An Appeal from Judy Norsigian appeared first on Our Bodies Ourselves.

Toronto-based architecture firm RDHA has completed the Springdale Library and Komagata Maru Park, a new inclusive gathering space for Brampton, a city located about 45 minutes west of Toronto. Designed as a visual contrast to the flat suburban environment, the architects created an undulating landscape of hills that is reinforced by the building’s mountainous form. Surrounded by walls of glass and solar shades, the green-roofed library is powered by geothermal energy and is expected to achieve LEED Gold certification.[...]

Cybersecurity researcher Mordechai Guri from Israel's Ben Gurion University of the Negev recently demonstrated a new kind of malware that could be used to covertly steal highly sensitive data from air-gapped and audio-gapped systems using a novel acoustic quirk in power supply units that come with modern computing devices. Dubbed 'POWER-SUPPLaY,' the latest research builds on a series of

It's been a very quiet week on the news front, but things are about to kick off again and Arsenal need to start winning games. Will the trip to Dubai, some extra training and time to assess the squad allow Mikel Arteta to find the right balance? Can he get the team firing again? How long can he give Mesut Ozil and Alex Lacazette to start delivering? And does a full squad allow him to create a really competitive environment between now and May. With me to discuss all that and much more are Clive Palmer and Andrew Allen.

Follow Clive - @clivepafc

Follow Andrew - @aallensport

See acast.com/privacy for privacy and opt-out information.

HI! FOLLOW @LAMEBOOK ON INSTAGRAM! THANKS!!

Trapped! https://ift.tt/3aDPZSz

Don’t ask me why Penrose didn’t just throw that thing back into the sea. Maybe he just thinks it’d be safer all round to be certain that the damn thing stayed dead.

Princeton's Michael Oppenheimer spoke on CBS's "60 Minutes" about the threat posed by rising sea levels to many cities, including UNESCO World Heritage Site Venice, Italy.

Emily Mann speaks on “She Roars” about 30 years at McCarter Theatre, being named to the American Theater Hall of Fame, and the latest staging of her play “Gloria: A Life.”

President and CEO of the World Wildlife Fund, Carter Roberts, appears on the “All for Earth” podcast to discuss his organization’s global and multi-dimensional work to protect all aspects of the environment.

Paula Kahumbu, CEO of WildlifeDirect who leads the campaign “Hands Off Our Elephants,” speaks on the “All for Earth” podcast about building a conservation movement in Kenya.

This is a challenging time for everyone. But nothing is as challenging as being trapped in another country...literally. I was planning to fly home for a week at the end of March. I was so convinced I would be there that I extended by a week so I could run

Bored yet Dont worry we have a few treats for you to keep you entertained. So settle in for a pleasurable time. Remember were all in this together. Lets start out with the biggie.Sandy Foreman had her 22nd birthday last Thursday. Happy Birt

Hey everyoneI really need to start writing blogs more often because now I have soo much to talk about lol Ok let me start a couple days back. On Tuesday we had orientation in the morning but in the afternoon Puran and Bikash took us out to get to kn

Every day, tens of thousands people in Germany seek to get tested for the novel coronavirus. Often, though, they run up against a lack of testing capacity. And it is likely to only get worse. By DER SPIEGEL Staff