lior Banque annonce aujourd’hui avoir choisi l’application IBM MobileFirst sur iOS pour apporter une transformation fondamentale à la façon dont les clients en Pologne interagissent avec leur banque. A l’aide d’un iPad, les professionnels des services bancaires pourront fournir une expérience plus dynamique et personnalisée aux clients en tirant avantage de la puissance de l’analyse prédictive, et ce de façon sécurisée, facile, rapide et disponible 24h/24.

IBM (NYSE : IBM) annonce aujourd'hui le lancement de l’application « IBM Watson Trend App », qui offre aux consommateurs une nouvelle façon de décoder les principales tendances de la saison et également de prédire les produits les plus en vogue avant qu'ils ne soient vendus. L'application est disponible via téléchargement gratuit sur l’App Store d’Apple.

Apple et IBM annoncent plus de 100 apps MobileFirst pour iOS !

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

IBM Australia (NYSE: IBM) has been awarded a multimillion dollar contract with NBN Co Limited to implement and manage the core business and operational support systems required to operate Australia’s National Broadband Network (NBN).

One of Australia’s leading digital banks taps cognitive technology to simplify the home loan application process with innovative virtual assistan

Machine Elf 16 – Creator of Worlds | Trey Ratcliff & Sam Wave “Creator of Worlds” explores chaos and order and creation from nothing. The actual work is a high resolution physical installation about 75 inches across and is embedded in a wall, running in a continuous loop forever. Here’s a photo of what the […]

Daily Photo – Happy monks in Cambodia Most of the monks I saw in Cambodia were not really doing monk-like things. I expected to see lots of meditating or chanting or something. Most of the time, they were just goofing, playing games, smoking, and just acting like pretty much everyone else! Happy monks in Cambodia […]

Zoo and Aquarium Association Uses IBM Technology to Support Endangered Species Programme

IBM (NYSE: IBM) and Cúram Software announced today the successful implementation of a number of software solutions for WorkCoverSA to support their business. WorkCover selected IBM Global Business Services to implement the Cúram for Workers' Compensation Solution, a comprehensive and proven claims management solution that manages and automates the complete claim lifecycle from injury to outcome, as part of a comprehensive modernisation of their IT systems.

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.

The LumoPro LP180 is no more.

You could make a strong case that the LP180 was the best manual hot shoe flash ever produced — and maybe that ever will be produced. It was a beast of a flash, with a fluid user interface and features designed specifically for off-camera lighting photographers. Now, it's the last of a bygone era.

Why did it have to die? What made it so good? And what will replace it as the flash of choice for discerning-but-frugal off-camera shooters?

Read more »

INPEX selects IBM to manage operation critical apps in Australia

IBM, (NYSE: IBM) today announced the findings of its 2016 Global Customer Experience Index (CEI) Study, which showed that Australia is above the global average when it comes to providing a good shopping experience for consumers, with a CEI rating of 43 percent compared with 40 percent globally. The results provided a snapshot of the Australian retail sector, revealing that some businesses are still struggling to provide a seamless cross-channel experience, personalisation and convenience for customers.

IBM (NYSE: IBM) today announced the appointment of David La Rose as Managing Director of IBM Australia and New Zealand (A/NZ). He replaces Kerry Purcell, who will return to a senior leadership role in IBM Japan.

IBM (NYSE: IBM) today announced the appointment of Professor Iven Mareels as Lab Director of IBM Research-Australia.

IBM Appoints Katrina Troughton as Managing Director of IBM Australia and New Zealand

peterboyden:

americanapparel:

Source: idea.ltd

BOYDENS Magazine

Just a short note that the memorial article “Analysis and applications: The mathematical work of Elias Stein” has just been published in the Bulletin of the American Mathematical Society.  This article was a collective effort led by Charlie Fefferman, Alex Ionescu, Steve Wainger and myself to describe the various mathematical contributions of Elias Stein, who […]

Pilot your droids from Star Wars: Galaxy’s Edge or create your own virtual models.

Happy Valentine！

40代初のバレンタインです。
今年もチョコレート頂きました！
有り難うございます????

さらに今日は嬉しい連絡が二つありました。
二つともまだ言えないんですが

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: icon_uk

An old, old, OLD and very silly post from our earlier incarnation back in Livejournal days!



( May the Fourth Be With You! )

Posted by: brerrabbit

( Read more... )

• 1 apple, washed (peeled if not organic) ($.60)
• 1 cup mango,chunks, fresh or frozen ($1.00)
• 1 banana, sliced and frozen
• 1 handful kale leaves ($.50)
• 1/2 teaspoon cinnamon
• 1/4 teaspoon nutmeg
• 1 cup ice
• water for blending (more or less depending on how thick you like it)

• 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 

• 1 cup carrots, cut into chunks
• 1 banana, sliced and frozen
• 1 cup almond milk 
• 1 teaspoon cinnamon
• 1/2 teaspoon ginger
• 1/4 teaspoon allspice
• pinch nutmeg
• 1/2 cup chopped dates
• 1/4 cup chopped pecans or other nuts
• 1 cup chopped apples

1. In a high powered blender, puree the carrots, banana, and almond milk until very smooth.
2. Add in the cinnamon, ginger, allspice, and nutmeg and pulse a few times to blend well.
3. Pour into a bowl and add the chopped dates, pecans, and apples. A sprinkle of coconut flakes goes well, too!

• 3 cups chopped romaine (or favorite green) ($1.00)
• 1 cup cubed pineapple, frozen ($2.00)
• 1 banana, sliced and frozen ($.20)
• 2 tablespoons lemon juice (optional) ($.20)
• 1 teaspoon vanilla ($.10)
• 1 cup water
• 10 ice cubes
• stevia to taste (optional)

• In a high powered blender, puree the greens until liquefied and very smooth. 
• Add the rest of the ingredients and puree until smooth.

To the women from all over the world I'm privileged to know, and everybody who loves international women.

I have been saving up some articles for the occasion: here are two marvellous bios of trans lesbian elders.

Jan Morris. [Content note: the article is in the Guardian which takes a somewhat transphobic editorial stance, though this article is very positive towards trans women. However it does deadname Morris and includes a picture of her from back when she was presenting as male.]

Sandy Stone, a couple of years old from Vice but it came to my attention recently.

comments

Not a gratitude practice; I'm really bad at that. Just, in spite of all the awfulness on a global scale, on a personal level my cup runneth over right now.

My extremely wonderful job was made permanent. I had been assured this would happen, but I'm really pleased to have it confirmed.

We finally managed to catch (at least the first act of) one of the many performances currently being made available online in response to the pandemic: the National Theatre's utterly amazing Twelfth Night from 2017. Lots of people have recommended it, so thank you for inspiring me to actually watch. It's on YouTube until 7 pm tomorrow (Thursday), and it's so, so, so good. So many amazing actors, and the set is great, and the direction is great, and I'm in awe, basically. Hope to watch Act II this evening.

We also really loved Knives Out. From publicity it didn't seem like my kind of thing at all, don't care about semi-parodic murder mysteries about awful people, but I saw enough reviews to convince me to give it a try and it's amazing. The comedy is actually funny, and very much punching up.

I have been having some wonderful distanced conversations with people I care about. Phone date with ghoti_mhic_uait. Phone call with hatam_soferet. Video chat with rysmiel, which we hadn't managed to coordinate for ages because of time zones and demanding jobs. Video chat with doseybat, who has been one of my favourite people to talk to for nearly a quarter century, and every extension of that enormous conversation makes my life better. I sympathize with all the people who dislike spending all their leisure time as well as in many cases their work time in calls, but for me, a one-to-one conversation with a friend goes a long way to balance the awfulness of lockdown.

Talking of which, ambyr, who also feels positive towards phonecalls, really kindly agreed to phone me to teach me Mystic Vale. It's a really pretty deck building game I'd heard good things about, but I couldn't make any sense of the interface on Yucata. And now ambyr has explained it to me and I'm really enjoying it. Plus I got to talk to someone I like and had only previously interacted with on DW.

And I have a regular call set up with angelofthenorth, who lives the other side of the country so we always have too much geography even in normal times. She had the brilliant idea of reading through a book about the Old Testament aimed at Christian ministers in training, SCM Studyguide: The Old Testament, by John Holdsworth, which I'm finding really fascinating. Mostly the conversation with angelofthenorth, who brings the perspective of an experienced Christian preacher and mentor of ordinands, whereas I'm a random Jewish person who obviously has a very different approach to the Bible. The book itself is written in a somewhat annoying style, but the content is good.

angelofthenorth, along with my sister, got me back into playing Scrabble using the rather dreadful official app from Electronic Arts. I'm really enjoying being able to ping anagrams back and forth as a minor distraction during the day.

Another friend who is completely wonderful is ewt, who transcribed for me the tune of the Psalm we use for special occasion grace after meals. This is particularly awesome because it's really hard to find any record of the Anglo-Jewish tunes I'm used to. Everything is transmitted within communities and not documented anywhere, and the internet is full of American and Israeli and Chassidic tunes, and I can't teach my own tunes because I'm not musical enough.

The final thing making me happy right now is the disco tardigrade. I have always loved tardigrades, and fluorescence microscopy, and this is just such a lovely image. It's my new 'squee' icon (cos nobody really understood the 'methane on Mars' one), and also my new Zoom background. Turns out, Zoom backgrounds are set per device not per account, so when I tried to put it on my personal account, it ended up showing up on work Zoom calls too. Luckily it's not embarrassing and my equally geeky colleagues love it too. (But in case anyone could stand to learn from my experience, don't put a work-unsuitable background on your Zoom if you use the same physical machine for work and personal calls.)

comments

My washer and dryer failing me is a nightmare I don’t want to visit. You see, my current set came with the house 17 years ago, and were already 5 years old. The one set of appliances I’ve never bought is a washer and dryer–I’ve always purchased houses where they’d been left behind by the […]

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.↩

Event cancellations at local bodies due to COVID-19 will reduce revenue, but not rent and other fixed expenses. Many local bodies already operate on extremely tight margins and struggle to pay their bills even during normal times. All members are encouraged to continue to financially support their local bodies, even if there are no events …

Continue reading